BIOS  LISTING 
for 

CP/M  2.2.03 


}  )))))))  ) 
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ASSEM  2.0 

#001 
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28  AUG  81 

0000 

ORG 

OOOH 

0001  s 

H17T 

EQU 

i 

0000  = 

H37T 

EQU 

0 

0000  = 

H47T 

H67T 

EQU 

EQU 

0 

0 

. ;+*»¥***¥»*»¥«**¥«**»¥ . 

;  + 

. ;+"*"*'»"N,OT'E"<‘*"* . 

;+ 

. "  THE '  ABOVE'  5  ‘  LINES'  OF  *  CODE '  ARE  '  MB '  PREAMBLE '  TO  'THE  Bib'S  .* . 

. ;+ . .  THESE  LINES  ARE  USED  BY  ’MAKEBIOS'  IN  GENERATING  THE  BIOS. 

; +  THESE  L iNES  SHOULD  NOT'  BE ' ALTERED ' FOR ' ANY ' REASON  UNLESS ' THE ' 

. ;+  PROGRAM  'MAKEBIOS'  IS  ALSO  ALTERED.  THESE  LINES  MUST  APPEAR 

; +  AS  THE ' FIRST  5  LINES ‘ IN  THIS ' SOUR CE . . 

;  + 

. . 
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TITLE 

’HEATH/.ZiENIXH. 

0003  = 

VERS 

EQU 

03 

0020  = 

LEVEL 

EQU 

i  » 

66 08  = 

MONTH 

DAY 

EQU 

EQU 

08 

28 

0051  = 

YEAR 

EQU 

81 

0000 

006  V 


BIOS2,  A  BIOS  MODULE  FOR  CP/M  2.2 

FOR  USE  WITH  HEATH/Z.SNITH  $/m.  AND.  K^8.  COMPUTERS. 

. AND  H17/H77/H87  5  1/4  INCH  DISKS 

AND  H47/Z47  8 . INCH. DISKS . 

. AND  H37  5  1/4  INCH  DISKS 

AND  H67  HARD  DISK  WITH  .8 .  INCH.  FLQP.PY  . . . 


COPYRIGHT  1 980 , 198 1  HEATH  COMPANY,  BENTON.  HARBOR , .  MICHIGAN. 


JIM  TITTSLER  /  BILL  ZURNEY 
HEATH/ ZENITH  SOFTWARE  GROUP 

HILLTOP  ROAD . 

'  SAINT'  JOSEPH ,  MICHIGAN 


BECAUSE  THIS  CODE' MUST  BE  ASSEMBLEABLE  UNDER  BOTH  ’ASM1  AND  ’MAC’ 
THE  CONDITIONALS  MAY  SEEM  A.  LITTLE  STRANGfU  . .  ’ASM’.  DQES.N'.T.  HAVE. . . 
THE  FOLLOWING . 

1)  IF/THEN/ELSE  STRUCTURE  . 

‘ ' ' 2)  NESTED  IF  CAP ABILITY 

3)  RELATIONAL  OPERATORS  . 


FALSE  EQU  0 . 

TRUE . EQU . 1 

IF  TRUE-1 

f: . TRUE  NE  1 . 

ENDIF 


IF  (HI 7T+H37T+H47T+H67T- 1 )  SHR  15 . . . 

NO  DISK  DRIVE  TYPES  SPECIFIED 

ENDIF  . 

IF . (  2-(H  1 7T+H37T+H47T‘ +H67T ) )  SHR  15 

TOO  MANY  DISK  DRIVE  TYPES  SPECIFIED . 

ENb'iF . 


PARTITN  EQU 


TRUE  AND  H67T  ;FALSE  =  NO  HARD  DISK  PARTITION  SUPPORT 
. ; TRUE  "=' SUPPORT  HARD  DiSK  PARTITIONING 


H67PART2  EQU  ' 


TRUE '  AND '  P ARTITN  ';  FALSE  ONLY  1  PARTITION  AT  A  TIME 

•TRUE  =  ALLOW  2  DRIVES  (PARTITIONS) 


TOD  EQU 
EVENT  "‘EQU"* 
INTINP  EQU 


FALSE  ;TIME  OF  DAY  HANDLER 

FALSE . -EVENT'  DOWN'  COUNTER . 

TRUE  ; ASSEMBLE  WITH  INTERRUPT  CRT  DRIVER 


)))))>)  )  ) 
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0000  = 

BRKKEY 

EQU 

FALSE  AND  INTINF 

•  ;TRUE  =  WARM  START  ON  BREAK  KEY 

0000  = 

H37ED 

EQU 

TRUE  AND  H37T 

; FALSE  =  NO  SPECIAL  PROCESSING 
;TRUE  =  BIOS  SUPPORTS  H37  EXTENDED 

0000  = 

H47ED 

EQU 

TRUE  AND  H47T 

{  DOUBLE  DENSITY 

;TRUE  =  BIOS  SUPPORTS  H47  EXTENDED 

;  DOUBLE  DENSITY 

0003  = 

0000  = 

H17ND 

H37ND 

EQU 

EQU 

3*H17T 

3#H37T 

; NUMBER  OF  H17  DRIVES  SUPPORTED 
; NUMBER  OF  H37  DRIVES  SUPPORTED 

. Oo'oO '  s . 

0000  = 

H67ND 

EQU 

EQU 

2*h47t 

2»H67T+H67PART2 

; NUMBER  OF  H47  DRiVES  SUPPORTED 
; NUMBER  OF  H67  DRIVES  SUPPORTED 

0000  = 

BIOS 

EQU 

$ 

F200  = 

BDOS 

EQU 

BIOS-OEOOH 

. EAOO's . 

EA03  = 

ccp . 

CCPCLR 

EQU 

EQU 

BdOS-ODOOH 

CCP+3 

oooo  = . 

0003  = 

BOW* 

IOBYTE 

FQO  " 
EQU 

000 OB 

BOOT+3 

{BASE  OF  USABLE  RAM 

;I/0  DEVICE  ASSIGNMENT  BYTE 

. 0004= . 

0040  = 

LOGDSK 

BDMAP 

fcQU 

EQU 

B’OOf+4 

0040H 

jWUE'Rfe  CPM  STORES  DEFAULT  DRIVE 
; LOGICAL  TO  PHYSICAL  DRIVE  MAP 

0048  = 

BBDF 

EQU 

0048H 

;  (UP  TO  8  BYTES  C DRIVES)  6o4'OH-6b47H) 

;BOOT  DEVICE  FLAGS 

0049  = 

004A  = 

BBDA 

BBP 

EQU 

EQU 

004‘9ft 

004AH 

:bOot  device  Address  (bABe  port  A) 

;B00T  BEGINNING  OF  PARTITION 

004D  = 

BUPB 

EQU 

004DH 

;  (3  BVTE  VALUE) 

;BOOT  LAST  SECTOR  OF  PARTITION  +  1 

004E  = 

BBIOS 

EQU 

004EH 

; ’ (3  BTTE  VALUE) 

t CONTAINS  ADDRESS  OF  START  OF  BIOS 

005C  = 

FCB 

EQU 

B00T+5CH 

' ; '  AFTER'  COLD  'BOOT '  IS'  'COMPLETED . 

{DEFAULT  FILE  CONTROL  BLOCK 

. 0080- . 

0100  = 

BUFF  ’ 
TPA 

’  EQU' ' 
EQU 

B06T+80H 

BOOT+IOOH 

{DEFAULT  DISK  BUFFER 
{BASE  OF  TRANSIENT  PGM  AREA 
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• 

;  HI 7  DISK  RELATED  EQUATES 

. QQ7C.  . 

_ UPPP _ 

.EQU  . . 

. .  .07CH . 

.. .  .{DISK  .DATA  .PORT . 

007D  = 

UPFC 

EQU 

07  DH 

;FILL  CHARACTER 

. Q07D. .? . 

. . . . UFST . 

EQU.. 

...07DH . 

. . .  .{.STATUS.  F.LAGS . 

007E  = 

UPSC 

EQU 

07EH 

;SYNC  CHARACTER  (OUTPUT) 

. J307E.  - . 

_ UPSR _ 

.EQU  .. 

. .  .07EH . 

. . .  .{.SYNC  .RESET,. (INPUT). . 

007F  = 

DPDC 

EQU 

07FH 

{DISK  CONTROL  PORT 

0002  = 

UO 

EQU 

02H 

; H 1 7  UNIT  0 

. .0004.  .5 . 

....U.1 . 

.EQU . . 

. .  .04R . 

. ; . UNIT.  .1 . 

0008  = 

U2 

EQU 

OSH 

;  UNIT  2 

. .00 10.  . 

. DFMO . . . . 

.EQU.. 

...10R . 

. ; MOTOR  .ON.  .(ALL  .DRIVES) . 

0020  = 

DFDI 

EQU 

20H 

{DIRECTION  (0  =  OUT) 

. P.Q40.  = . 

. DFST . . . . 

.EQU. . . 

. .  .4QH . 

. ;.STEP.  .COMMAND.  .(ACTIVE.  HIGH.) . 

0001  = 

. PFHD . . . . 

.EQU... 

...Q1H . 

. , , .  .;.HQIE  DETECT . 

0002  = 

DFTO 

EQU 

02H 

; TRACK  0  DETECT 

OQ04  .= 

DFWP 

EQU.  . 

. .  .Q4H . 

. . . . { WRITE  .PROTECT. . 

0008  = 

DFSD 

EQU 

08H 

;SYNC  DETECT 

OOFD  = 

DSYN 

EQU 

OFDH 

; PREFIX  SYNC  CHARACTER 

0014  = 

IPSA 

EQU 

20 

; NUMBER  OF  TRIES  FOR  CORRECT  SECTOR 

...0005  = 

$T£4. . . . 

.EQ.U... 

. .  .8/2.+.  \ . 

. ;.M3/2.  TO.  WAIT.  .FOR  INDEX  .  HOLE .  . 

0007  = 

STSB 

EQU 

12/2+1 

;MS/2  TO  WAIT  PAST  INDEX  HOLE 

0014  = 

WHDA 

EQU 

20 

;UDLY  COUNT  FOR  HOLE  DEBOUNCE 

0014  = 

WHNA 

EQU 

20 

;UDLY  COUNT  FOR  HOLE  DEBOUNCE 

0050  = 

WSCA 

EQU 

64*25/20 

;LOOP  COUNT  FOR  25  CHARACTERS  . 

0014  = 

WRITA 

EQU 

20 

;GUARDBAND  COUNT  FOR  WRITE 

OOOA  = 

WRITB 

EQU 

.  10 

! NUMBER  OF  ZERO  CHARACTERS  AFTER  HOLE  EDGE 

0010  = 

WRITC 

EQU 

128/8 

;TWO  CHARACTER  DELAY  BEFORE  WRITING 

0030  = 

RE  ADA 

EQU 

48 

{.DELAY  BEFORE  HUNT  MODE 

OOFA  = 

SPD 

EQU 

250 

{250*  4MS  =  1  S 

0Q14  = 

HLTG 

EQU 

20 

{  20  *  4MS  =  80  MS  . 

0006  = 

HST 

EQU 

24/4 

{HEAD  SETTLE  TIME  24  MS 

OOOF  = 

STEPR 

EQU 

30/2 

{STEP  RATE  MS/2 

060F  = 

DELAYS 

EQU 

6*256+15 

{HEAD  LOAD  AND  MOTOR  ON  TIMER  VALUES 

OOOA  = 

Pf TRIES  EQU 

10 

{NUMHEP  OF  RETRIES  . 

.  Q0Q.1  =.. 

D$E$TRK  EQU 

001H 

{BAP  TRACK  ERROR  . 

0002  = 

D$E$HSY 

EQU 

002H 

{HEADER  SYNC  ERROR 

0004  = 

D$E$HCK  EQU 

004H 

{HEADER  CHECKSUM 

0008  = 

D$E$CHK 

EQU 

008H 

{CHECKSUM  ERROR 

0010  = 

D$E$RNF 

EQU 

01  OH 

{RECORD  NOT  FOUND 

0020  = 

D$E$MDS  EQU 

020H 

{MISSING  DATA  SYNC 

Q04Q  = 

D$E$WRf  EQU 

040H 

. {WRITE.  PROTECT.  .ERPP.R . 

0080  = 

D$E$UNR  EQU 

080H 

{UNIT  NOT  READY 
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;  H4?  DISK  EQUATES. 


0000  = 

H47CTL 

EQU 

0 

; STATUS/CONTROL  PORT  DISPLACEMENT 

0001  = 

H47DAT 

EQU 

1 

;DATA  PORT  DISPLACEMENT 

;  STATUS  PORT 

BITS 

0080  = 

DSTR 

EQU 

10000000B 

. ;??. . 

0040  = 

OSIE 

EQU 

01000000B 

;INT  ENABLE 

0020  = 

DSDONE 

EQU 

00100000B 

;DONE  (I.E.  NOT  BUSY) 

0061  = 

DSERR 

EQU 

0000000 IB 

; ERROR 

;  CONTROL  PORT  BITS 

0040  = 

DC  IE 

EQU 

01000000B 

;INT  ENABLE 

0002  = 

DC  RES 

eou 

0000001 OB 

; RESET 

;  COMMANDS 

0001  = 

DRS 

EQU 

01H 

JREAD  STATUS 

0002  - 

DRAS 

EQU 

02H 

♦READ  AUXILIARY  STATUS 

0003  = 

DSNS 

EQU 

03H 

;SET  NUMBER  OF  SECTORS 

0007  = 

Dfcb 

EQU 

07H 

;READ  (BUFFERED) 

0008  = 

DWR 

EQU 

08H 

; WRITE  (BUFFERED) 

OOOB'  - 

D'c'dPV 

Equ 

Obh 

;COPY 

000D  = 

DFMT 

EQU 

ODH 

J SINGLE  DENSITY  FORMAT 

UOOE  = 

DFMTD 

EQU 

OEB . 

Format  double  density  (trk  6  single) 

OOOF  = 

DFMTD2 

EQU 

OFH 

; FORMAT  DOUBLE  DENSITY  (TRK  0-76) 
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;  H37  EQUATES 


. .  P.QBT.  ASSIGNMENTS 


0078  = 

FD$BASE  EQU 

078H 

BASE  PORT  ADDRESS 

. 0.078,  <= . 

. FDIC.QN . .  EQU . . . 

. . .  FPIBAS.E . 

DISK . CONTROL . PORT . 

0079  = 

FD$INT  EQU 

FD$BASE+1 

INTERFACE  MUX  PORT 

. Q07A.  = . 

. FDICMD. .  EQU. . . 

. . .  F.D$BASE+2 . 

.1.7.97.  COMMAND.  REGISTER . 

007A  = 

FD$STA  EQU 

FD|BASE+2 

STATUS  REGISTER 

. FD$DAT. .  EQU. . . 

. . .  F.D$BASE+3 . 

. DATA.  .REGISTER . 

007A  = 

FD$SEC  EQU  • 

FD$BASE+2 

SECTOR  REGISTER 

. Q07B.  ?. . 

. FD*TRK. .  EOU. . . 

. . . FDIBASE+3 . 

. TRACK  .REGISTER . 

. ;  . .  INTERFACE  .MUX.  .PORT.  .FLAGS . 

0000  = 

FD$CD  EQU 

0  : 

[ACCESS  C/D  REGISTERS 

0.Q01.  = . EDITS. . .  .EQU . X . ; ACCESS  .T/S  .REGISTERS 


; . .  .COMMANDS. 


0000  = 

FDCRST 

EQU 

OOOH 

; RESTORE 

. Q  0.1.0.  = . 

. FD.C.SEK. . 

.EOU . . 

...Q1PH . 

.  ISEEK . 

0020  = 

FDCSTP 

EQU 

020H 

{STEP 

. om  = . 

. FP.C.STI . 

.EQU... 

. .  .Qm . 

. J.STEP.  .IN . 

0060  = 

FDCSTO 

EQU 

060H 

;STEP  OUT 

. 008.0.  = . 

. FD.C.RDS. . 

.EQU . . 

...Q80H. . 

. .{REAP.  .SECTOR . 

OOAO  = 

FDCWRS 

EQU 

OAOH 

JWRITE  SECTOR 

OOCO  = 

FDCRDA 

EQU 

OCOH 

;READ  ADDRESS 

OOEQ  = 

FDCRDT 

EQU 

OEOH 

{READ  TRACK 

OOFO  = 

FDCWRT 

EQU 

OFOH 

JWRITE  TRACK 

OODO  = 

FDCFI 

EQU 

ODOH 

; FORCE  INTERRUPT 

;  TYPE 

1  COMMAND  FLAGS 

. Q0.1P.  .=. . 

FDFUTR 

EQU 

00010000B 

J UPDATE  TRACK  REGISTER 

0008  = 

FDFHLB 

EQU 

00001000B 

jHEAD  LOAD  AT  BEGINNING 

0Qp4  = 

FDFVRF 

EQU 

00000 100B 

; VERIFY  FUGS 

J  TYPE 

1  COMMAND  STEP  RATE 

FLAGS 

0000  = 

FDFS6 

EQU 

OOOOOOOOB 

;STEP  RATE  6  MS 

. OOQl.  = . 

FDFS12 

EQU 

0000000 IB 

. . 12  .... 

0002  = 

FDFS20 

EQU 

000000 10B 

;  20 

. Q0P3.  .= . 

FDFS30 

EQU 

0000001 IB 

. 1 . 39 . 

; . .  TYPE  243.  COMMAND  FLAGS 


0010  = 

. Q9P.8 . = . 

FDFMRF 

FDFSLF 

EQU 

EQU 

00010000B 

00001000B 

; MULTIPLE  RECORD  FLAG 
; SECTOR  LENGTH  FLAG 

0004  = 

FDFDLF 

EQU 

00000 100B 

J30  MS  DELAY 

0002  = 

FDFSS1 

EQU 

00000010B 

jSELECT  SIDE  1 

0001  = 

FDFDDM 

EQU 

0000000 IB 

; DELETED  DATA  MARK 

;  TYPE 

4  COMMAND  FLAGS 

0000  = 

FDFINI 

EQU 

OOOOOOOOB 

{TERMINATE  WITH  NO  INTERRUPT 

0001  = 

FDFIIQ 

EQU 

0000000 IB 

;NOT  READY  TO  READY  TRANSITION 

0002  = 

FDFII1 

EQU 

00000010B 

; READY  TO  NOT  READY  TRANSITION 

0004  = 

FDFII2 

EQU 

oooobiooB 

{INDEX  PULSE 

0008  = 

FDFII3 

EQU 

00001000B 

{IMMEDIATE  INTERRUPT 

( 
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:  STATUS  FLAGS  . . . 

0080  = 

0040  = 

FDSNRD  EQU 
FDSWPV  EQU 

10000000B  ; 

01000000B  ; 

NOT  READY 

WRITE  PROTECT  VIOLATION 

0020  = 

0020  = 

FDSHLD  EQU 
FDSRTE  EQU 

00100000B  ; 

00100000B  ; 

HEAD  IS  LOADED 

RECOflD  TYPE  . 

0020  = 

0010  = 

FDSWTF  EQU 
FDSSEK  EQU 

00100000B  ; 

00010000B  : 

WRITE  FAULT 

SEEK  ERROR . 

66  io  = 

0008  = 

FDSRNF  EQU 
FDSCRC  EQU 

OOOIOOOOB  {RECORD  NOT  FOUND 

00001000B  :CRC  ERROR 

0004  = 

0004  = 

FDSTKO  EQU 
FDSLDT  EQU 

00000 100B 

00000 100B 

FOUND  TRACK  0 

LOST  DATA  . 

0002  = 

0001  = 

FDSIND  EQU 
FDSBSY  EQU 

0000001 OB 
00000001B 

INDEX  HOLE 

BUSY  . 

;  INFO  RETURNED  BY  A  READ  ADDRESS  COMMAND 

0000  = 

0001  = 

FDRATRK  EQU 
FDRASID  EQU 

0 

.1 . 

TRACK 

SIDE 

6<30'2  = 

0003  = 

FDRASEC  EQU 
FDRASL  EQU 

2 

3 

SECTOR 

SECTOR  LENGTH 

(5664  = 

0006  = 

FDRACRC  EQU 
FDRAL  EQU 

4 

6 

2  BYTE  CRC 

LENGTH  OF  READ  ADDRESS  INFO 

;  DISK  HEADER 

SECTOR  LENGTH  VALUES 

0000  = 

0001  = 

FDSL128  EQU 
FDSL256  EQU 

0 

1 

SECTOR  LENGTH  128 

SECTOR  LENGTH  256 

0002  = 

0003  = 

FDSL512  EQU 
FDSL1K  EQU 

2 

3 

SECTOR  LENGTH  512 

SECTOR  LENGTH  1024 

;  CONTROL  REGISTER  FLAGS  . 

0001  - 
0002  = 

CONIRQ  EQU 
CONDRQ  EQU 

0000000  IB 
00000010B 

ENABLE  INT  REQ 

enable  .prq  .  i  n.t  disable,  .system  .ini . 

0004  = 

0008  = 

CONMFM  EQU 
CONMO  EQU 

00000 100B 
00001000B 

ENABLE  MFM 

MOTOR(S)  ON  . 

0010  = 

0020  = 

CONDSO  EQU 
C0NDS1  EQU 

OOOIOOOOB 

00100000B 

DRIVE  6 

1  . 

0040  = 

0080  = 

C0NDS2  EQU 
C0NDS3  EQU 

01000000B 

10000000B 

2 

. 3 . 

;  MISCELLANEOUS  VALUES 

0028  = 

0050  = 

NTRKS37  EQU 
NTRKD37  EQU 

40 

.80 . 

NUMBER  OF  TRACKS  SINGLE  DENSITY  (48  TPI) 

NUMBER  OF  TRACKS.  DOUBLE .  PENSIIY  .  (9.6  .TPI). . . 

OOOA  = 

NSPTS37  EQU 

10 

NUMBER  OF  SECTORS  PER  TRACK 

SINGLE  DENSITY 

obib  = 

NSPTD37  EQU 

16 

NUMBER  OF  SECTORS  PER  TRACK 

DOUBLE  DENSITY 

bb05  = 

NSPTE37  EQU 

5 

NUMBER  OF  SECTORS  PER  TRACK 

EXTENDED  DOUBLE  DENSITY 

. 0003'  = . 

0003  = 

ILFS37  EQU 
ILFD37  EQU 

3 

3 

INTERLEAVE  FACTOR  SINGLE  DENSITY 

INTERLEAVE  FACTOR  DOUBLE  DENSITY 

003c  = 

ILFE37  EQU 
NSBT37  EQU 

3 

60 

INTERLEAVE  FACTOR  EXTENDED  DOUBLE  DENSITY 

NUMBER  OF  CP/M  RECORDS  TO  BE  LOADED  AT  BOOT 

. 060F'  V . 

DELAY37  EQU 

6*256+15 

DESELECT  AND  MOTOR  TURN  OFF  DELAY 

O02'O  = 

0023  = 

H37VEC  EQU 
DLYM037  EQU 

8*4 

H37VEC+3 

LEVEL  4  INTERRUPT 

MOTOR  TURN  OFF  DELAY  COUNTER 

LEVEL  4  INTERRUPT 

MOTOR  TURN  OFF  DELAY  COUNTER 
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0024  =  DLYH37  EQU  H37VEC+4  ; DESELECT  DELAY  COUNTER . 

0025  '= . H37CTL  '  EQU . H37VEC+5 . ;H37  CONTROL  REGISTER  IMAGE 

0026  =  H37IRET  EQU  H37VEC+6  ; WHERE  TO  GO  AFTER  INTERRUPT  ADDRESS 
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*  H67 . EQUATES , 


0001  = 

H67BLKI0  EQU 

TRUE 

{TRUE 

=  USE  Z80  BLOCK  I/O 

. iFALSE. 

=  .USK .HANDSHAKE . I/O. .... 

P.O.QQ ,  r . 

SHUGART  EQU 

FALSE 

{TRUE 

-  HARD  DISK  IS  SHUGART 

; FALSE 

S  HARD  DISK  IS  MEMOREX 

PORT  DISPLACEMENTS. 


0000  = 

HD$DAT 

EQU 

0 

. {DATA.  P.QRT . 

oooi  = 

HD$CON 

EQU 

1 

; CONTROL  PORT 

OOOI  = 

HD$STA 

EQU 

1 

. ; STATUS.  .PORT. . 

0002  = 

HD$SWI 

EQU 

2 

J SWITCH  PORT 

;  CONTROL  PORT  FLAGS. 

0080  = 

HDFACKH 

EQU 

10000000B 

; ACKNOWLEDGE  HOLD 

0040  = 

HDFSEL 

EQU 

01000000B 

; SELECT 

0020  = 

HDFEI 

EQU 

00100000B 

; ENABLE  INTERRUPTS 

oo  io  = 

HDFRES 

EQU 

00010000B 

; RESET 

0002  = 

HDFDE 

EQU 

00000010B 

DATA.  ENABLE . 

;  BUS  ; 

STATUS 

FLAGS. 

0080  = 

HDBREQ 

EQU 

10000000B 

; REQUEST 

0040  = 

HDBIO 

EQU 

01000000B 

;i/o  (0=IN  1=0UT) 

0020  = 

HDBMSG 

EQU 

00100000B 

;msg 

0010  = 

HDBCMD 

EQU 

00010000B 

. {CMD/DATA .  (0=DATA  1=C0MM((AD). . 

0008  = 

HDBBSY 

EQU 

00001 OOOB 

{BUSY 

0004  = 

HDBPE 

EQU 

00000 100B 

. PARITY.  .ERROR . 

0002  = 

HDBIRQ 

EQU 

OOOOOOIOB 

♦INTERRUPT  REQUEST 

0001  = 

HDBACK 

EQU 

OOOOOOOIB 

. ;HOS  IS  HOLDING  ACKNOWLEDGE  LINE 

;  COMMANDS. 

0000  = 

HDCTDR 

EQU 

OOOH 

;TEST  DRIVE  READY 

0001  = 

HDCRCL 

EQU 

001H 

. {RECALIBRATE . 

0002  = 

HDCRSY 

EQU 

002H 

; REQUEST  SYNDROME 

0003  = 

HDCRS 

EQU 

003H 

;  REQUEST  S£NS5.. 

0004  = 

HDCFD 

EQU 

004H 

; FORMAT  DRIVE 

0006  = 

HDCFT 

EQU 

006H 

. FORMAT,  track . 

0007  = 

HDCFBS 

EQU 

007H 

; FORMAT  BAD  SECTOR 

0008  = 

HDCRD 

EQU 

008H 

{READ 

0009  = 

HDCWPS 

EQU 

009H 

{WRITE  PROTECT  SECTOR 

OOOA  = 

HDCWR 

EQU 

OOAH 

{WRITE 

OOOB  = 

HDCSEK 

EQU 

OOBH 

{SEEK 

0020  = 

HDCCPY 

EQU 

020H 

{COPY 

OOCO  = 

HDCFDD 

EQU 

OCOH 

{FLOPPY  DISK  DESCRIPTION 

;  CLASS  0  COMMAND  BLOCK  STRUCTURE. 

0000  = 

HDOOP 

EQU 

0 

{OPCODE 

oooi  = 

HDOLULA 

EQU 

i 

{LOGICAL  UNIT  I/LOGICAL  ADDR 

OOEO  - 

HDOLUN 

EQU 

1 1 100000B 

;  BITS  7-5  =  LOGICAL  UNIT  # 

OOlF  = 

HD0LA2 

EQU 

00011 11  IB 

{  BITS  4-0  =  LOGICAL  ADDR  (HIGH  ORDER) 

0002  = 

HD0LA1 

EQU 

2 

{LOGICAL  ADDRESS  (MIDDLE  ORDER) 
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0003  = 

HDOLAO 

EQU 

...3 . 

{LOGICAL  ADDRESS  (LOW  ORDER)  . 

0004  = 

HDONB 

EQU 

4 

{NUMBER  OF  BLOCKS  /  INTERLEAVE  FACTOR 

0005  = 

HDOCON 

EQU 

5 

; CONTROL  . 

;  .CLASS.  .1.  COMMAND  BLOCK  .STRUCTURE. 


0000  = 

HD10P  EQU 

0 

{OPCODE 

0001  = 

HD1LUAS  EQU 

1 

{SOURCE  LOGICAL  UNIT  #/ADDR 

OOEO  = 

HD1LUNS  EQU 

11100000B 

;  BITS  7-5  =  LOGICAL  UNIT  # 

001F  = 

HD1LA2S  EQU 

0001  111  IB 

;  BITS  4-0  =  LOGICAL  ADDR  (HIGH  ORDER) 

boos  = 

HD 1 LA IS  EQU 

2 

{SOURCE  LOGICAL  ADDRESS  (MIDDLE  ORDER) 

0003  = 

HD1LA0S  EQU 

3 

{SOURCE  LOGICAL  ADDRESS  (LOW  ORDER) 

. 600'ii '=" 

HD1NB  EQU 

4 

{NUMBER  OF  BLOCKS 

0005  = 

HD1LUAD  EQU 

5 

{DESTINATION  LOGICAL  UNIT  tf/ADDR 

OOEO  = 

HD i LUND  EQU 

'i  i  ioobooB 

;  BITS  7-5  =  LOGICAL  UNIT  9 

00  IF  = 

HD1LA2D  EQU 

00011 1 1 1B 

;  BITS  4-0  =  LOGICAL  ADDR  (HIGH  ORDER) 

. 0006= . 

HD i LA ID  EQU 

6 

{DESTINATION  LOGICAL  ADDR  (MIDDLE  ORDER) 

0007  = 

HD1LA0D  EQU 

7 

{DESTINATION  LOGICAL  ADDR  (LOW  ORDER) 

. 0008'  = . 

HD 1 SPAR  EQU 

8 

{SPARE 

0009  = 

HD1C0N  EQU 

9 

{CONTROL 

;  CLASS  6  COMMAND  BLOCK  STRUCTURE. 

. oooo'  = . 

. riD60'P' ' ' '  EQU 

0 

{OPCODE 

0001  = 

HD6LUN  EQU 

1 

{LOGICAL  UNIT  #  (BITS  7-5) 

. 0005'  = . 

. KD6TFc"'£'QU . 

5 

{Track  Format  code 

. 'COMMAND  BLOCK  CONTROL  BYTE  FLAGS. 

0080  = 

HDFDR  EQU 

10000000B 

{DISABLE  RETRIES 

. 0040'  = . 

. HDFDDEC  EQU . 

‘  OTOOOO'OOB . 

‘  ‘  ‘ {DISABLE  DATE ‘  ERROR'  CORRECTION . 

. V '  TRACK  FORMAT 

CODE  FLAGS'.  " 

0002  = 

HDFDEN  EQU 

000000 10B 

{DENSITY  (0=SINGLE  1=D0UBLE) 

. oooi  ’= . 

. HDFSTD  EQU . 

'b'o'dOOb'o‘16 . 

"  ; sides  ( o= single  i =dooble) 

V  * '  COMPLETION'  STATUS'  BYTE'  FLAGS'.' 


OOEO  = 

HDFLUN 

EQU 

1 1 100000B 

{LOGICAL  UNIT  #  MASK 

. 0002 ' i . 

. HDFER'fl ' 

EQU 

' '  O'OOOO'OYOB . 

1 '  -ERROR'  DURING  COMMAND  EXECUTION . 

0001  = 

HDFPE 

EQU 

0000000 IB 

{PARITY  ERROR 

{  REQUEST  SYNDROME  BLOCK. 


. 0000 ' = . 

. NDSWBO  "EQO" 

"0 . 

••"{MYS;- BIT'  OFFSET . 

0001  = 

HDSLBS  EQU 

1 

;L.$.  BIT  OFFSET  /  SYNDROME 

. OOEO '  = . 

. HDFLBO'EQO" 

"11100000B 

"  " ; ' '  BITS  '7-5'  = '  LYS:  *  BIT'  OFFSET 

00  OF  = 

HDFSYN  EQU 

00001 11  IB 

{  BITS  3-0  =  SYNDROME 

;  REQUEST  SENSE  BLOCK. 


. 0000’= . 

0080  = 

. HDSSB  'EQU 

HDSBAV  EQU 

■  o . 

10000000B 

{SENSE'  BYTE . 

{BLOCK  ADDRESS  VALID 

. 0030  i . 

. HDSET  ' ' EQU  1  ’ 

O011OOOOB . 

"  {ERNOR’ TYPE  "MASK . 

OOOF  = 

HDSEC  EQU 

00001 11  IB 

{ERROR  CODE  MASK 

. oooi  i . 

. HDSLULA  ECU  ' 

"  "1 . 

" ' ' -LOGICAL ' UNIT ' ^/LOGICAL'  ADDR . 

OOEO  = 

HDSLUN  EQU 

1 1 100000B 

;  BITS  7-5  =  LOGICAL  UNIT  # 

. OOlF't . 

. HDSLA‘2 ' '  EQU 

"0001  ITT  IB . 

{  BITS  4—0  =  LOGICAL  ADDR  (HIGH  ORDER) 

0002  = 

HDSLA1  EQU 

2 

{LOGICAL  ADDRESS  (MIDDLE  ORDER) 

. 0003= . 

. HDSLAO  ' EQU ‘ 

'"3 . 

. {'LOGICAL'  ADDRESS'  (LOW  ORDER) . 

(((<(<(  t  ((  t 
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;  TYPE  0  (DRIVE)  ERROR  CODES 

0000  =  HDENS  EQU  OOOH  . ;  NO  STATUS . 

0061  = . HDENIS  ‘ '  EQU . 00 1H  ;  NO  INDEX  SIGNAL 

0002  =  HDENSC  EQU  002H  ;N0  SEEK  COMPLETE  . 

0005 '  = . HDEWF  "  EQU . 003H . ; WRITE  FAULT 

0004  =  HDEDNR  EQU  004H  ; DRIVE  NOT  READY 

0005  '= . HDEDNS  '  EQU . 005H . ‘DRiVE  NOT  SELECTED 

0006  =  HDENTO  EQU  006H  ;NO  TRACK  00 

'0007'  = . HDEMDS  "  EQU . 007H . ;  MULTI-DRIVE  ’  SELECTED 

;  TYPE  1  (CONTROLLER)  ERROR  CODES 

OO'IO*  '= . HDEIR  "EQU . 01  OH . 5  lb'  READ . 

0011  =  HDEUD  EQU  011H  ; UNCORRECTABLE  DATA 

0012  = . HDEIAM '  "EQU . 0l’2H . j  ID  ADDRESS  MARK  NOT  FOUND 

0013  =  HDEDAM  EQU  013H  ;DATA  ADDRESS  MARK  NOT  FOUND.. 

00T4  '= . HDERNF  *  EQU . 6i  4H . ; RECORD  ’  NOT ' FOUND 

0015  =  HDESE  EQU  015H  ;$EEK  ERROR 

OO’l 7  ‘  = . HDEWP  ‘  ‘  EQU . di  7H . ; WRITE  'PROTECTED* 

0018  =  HDECDF  EQU  018H  ; CORRECTABLE  DATA  FIELD  ERROR 

0'0'19  *  = . ftDEBBF  '  EQU . 019H . ;BAD  BLOCK  FOUND 

001 A  =  HDEFE  EQU  01 AH  ; FORMAT  ERROR 

. * . WE  (COMMAND)*  ERROR  '  CODES . 

0020  =  HDEIC  EQU  020H  ; INVALID  COMMAND 

'0021'= . Hb'E'fOA  '  'EQU . 021H . ; INVALID  DISK  ADDRESS . 

0022  =  HDEIF  EQU  022H ; ILLEGAL  FUNCTION  FOR  THE  DRIVE 

;  MISCELLANEOUS  EQUATES 


0122  =  H67MIN  EQU  290  ; MINIMUM  #  OF  SECTORS  FOR  A  PARTITION 

*801  A'  . H67MAX*  ‘  'EQU . *32794 . ; MAXIMUM  #  OF*  USEABLE'  SECTORS . 

;  FOR  A  PARTITION 

. 'tt . SHUGART . 

NSEC67  EQU  32768  ; TOTAL  NUMBER  OF  SECTORS  FOR  SHUGART 

. ELSE  . 

9880  =  NSEC67  EQU  39040  ; TOTAL  NUMBER  OF  SECTORS  FOR  MEMOREX 

. ENDIF . 

001 A  =  NSPT67  EQU  26  ; NUMBER  OF  SECTORS  PER  TRACK 

000T  V . NS)rS67H  EQU . 1 . ; NUMBER  OF  BOOT  TRACKS  FOR  HARD  DISK  ' 


PAGE 


qp-m  .HACKQ.AS.SEM.  2.0 . #0.12 . HEATH/2ENIT.H  BIQ5 


28  .AUG  .61 


■MISC  EQUATES 
» 


00C3  = 

MI$JMP 

EQU 

0C3H 

; 8080  JUMP  INSTRUCTION 

00F0  = 

H8CTL 

EQU 

OFOH 

;H8  CONTROL  PORT 

OODO  = 

H8TR 

EQU 

ODOH 

;H8  CLOCK  TICK  RESET 

00F2  = 

H88CTL 

EQU 

0F2H 

;H88  CONTROL  PORT 

0020  = 

M1H 

EQU 

020H 

;KEEP  RAM  AT  0 

0040  = 

100 

EQU 

040H 

;H 1 7  SIDE  SELECT 

0002  = 

CLKE 

EQU 

002H 

{TURN  ON  2MS  CLOCK 

0008  = 

CLKVEC 

EQU 

0008H 

; CLOCK  INTERRUPT  VECTOR 

OOOB  = 

TICCMT 

EQU 

OOOBH 

;TWO  BYTE  TICK  COUNTER 

OOOD  = 

CTLPRT 

EQU 

OOODH 

;  CURRENT  CONTENTS  OF  *89  CONt'ROt  LATCH 

OOOE  = 

H8FLAG 

EQU 

OOOEH 

; CONTENTS  =  0  FOR  H/Z89,  =  H8TR  FOR  H8 

OOOF  = 

DEVCTL 

EQU 

OOOFH 

; CURRENT  CONTENTS  OF  HI 7  CONTROL  LATCH 

0018  = 

SERVEC 

EQU 

0008H*3 

{SERIAL  INTERRUPT  VECTOR  (LEVEL  3) 
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;misc  cph  equates 


. OO.Q3.=  .. 

. HPISKS. 

*: 

.  EQM . Rl.7NP.tH 37 N JHB4.7.N D+H.6.7  NP. .  MAXIMUM  .NUMBER.  .QF .  PISKS . 

;  IN  THIS  SYSTEM 

,.IF. . TRUE-1 . 

TRUE  NE  1 

.  ENDIF. . 

IF  (8-NDISKS)  SHR  15 

NDISK  GT  8  —  DRIVE  MAP  ONLY  HAS  8  ENTRY  SLOTS .  . 

ENDIF 

002C  = 

NSECTS 

EQU 

44  ;NUM  SECTS  TO  READ  ON  WM  BOOT 

;  MAX 

HOST  (PHYSICAL)  SECTOR  SIZE 

IF . (H47T  AND  H47ED)  OR  .(H3.7T. AND.H37ED) . 

HSTSIZ 

EQU 

ELSE 

1024  ;MAX  HOST  (PHYSICAL)  SECTOR  SIZE 

0100  = 

HSTSIZ 

EQU 

.  .ENPJF . 

256  ;MAX  HOST  (PHYSICAL)  SECTOR  SIZE 

OOFF  = 
0000  = 

BT$WM 

BT$CD 

• 

.  .EQP. . . . 
EQU 

...  QFFH . JWARM.  boot,  .flag . 

OOOH  ;COLD  BOOT  FLAG 

. 

; DEFAULT  PORT 

• 

• 

ASSIGNMENTS 

OOFA  = 
00D0  = 

H85CRT 

H84TTY 

EQU 

EQU 

372Q 

ODOH 

00E8  = 
oogo  = 

H84CRT 

H84LPT 

EQU 

EQU 

0E8H 

OEOH 

00D8  = 

H84RDP 

EQU 

0D8H 

;BAUD  RATE  DIVISORS  FOR  8250'S 

0600  = 
04.1.7 .  = 
0359  = 
0180  = 

B75 

. J811P.... 

B134 

B300 

EQU 

.  BQU. . . 
EQU 
EQU 

1536 

. . .  .1.047 . 

857 

384 

OOCO  = 

. 00.6.0.=.. . 

0030  = 

....  00.10.?... 
OOOC  = 
00(?6  = 

B600 

B1£00 

B2400 

. .B40OO 

B9600 

B 19200 

EQU 

..EQU... 
EQU 
.  EQU. 
EQU 
EQU  . 

192 

...96 . 

48 

24 

12 

6 

•ASCII 

YAWFS 

..OQPP.  = 

• 

NULL 

..RftU... 

OOH 

0003  = 
0007  = 

CTLC 

BELL 

EQU 

.  BQy. . . 

03H 

. . .  .Q7H . 

OOOD  = 
OOOA  = 

CR 

LF 

EQU 

EQU 

ODH 

OAH 

OOOD  = 

PADCH 

EQU 

CR  ;CHAR  THAT  GETS  NULL  PADDING,  MUST  NOT  BE  NULL 
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; DEFAULT  I/O  BYTE 


. . . 

» 

• 

• 

• 

I 

• 

1 

■ 

• 

CON: 
RDR : 
PUN: 
LST: 

CRT: 

upi  : 

0000  = 

TTY 

EQU 

0 

0001  = 

CRT 

EQU 

i 

0001  - 

PTR 

EQU 

0001  = 

PTP 

EQU 

i 

0002  = 

BAT 

EQU 

2 

0002  = 

UR  i 

EQU 

0002  = 

UP1 

EQU 

2 

0002  = 

LPT 

EQU 

0003  = 

UC 1 

EQU 

0003  = 

UR2 

EQU 

3 

0003  = 

UP2 

EQU 

0003  = 

UL1 

EQU 

3 

00A9  = 

DIOB 

EQU 

(CRT)  OR  (UR  1  SHL  2)  OR  (UPI  SHL  4)  OR  (LPT  SHL  6) 
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;  DEVICE  DRIVER  ENTRY  JUMP  VECTOR  OFFSETS. 


. Qp.QQ .  = . DDSEL . . .  .EQU . A . :  S.EEEC.T  .DISK . 

0003  =  DDRD  EQU  3  ;  READ 

.  QQ06  = . PRWR . EQU . 6 . ;.WRI.TE . 

0009  =  DDRES  EQU  9  ; RESET 

. OP.OC .  = . DDMN.T  ...  EQU . 12 . ; MOUNT . 

. ;  DISK  PARAMETER' ENTRY  DESCRIPTION. 

4  . . . . * . ♦  . * . .  .* . . . . . *  *  . . *  #  #  . . 

gp.QQ  = . DPEXL,T  .EQU . 0 . ;SEQTOR  .TRANSLATE. TABLE  ADDRESS . 

. 000 A  = .  DPEDPB  EQU  10  ;DISK  PARAMETER  BLOCK  ADDRESS 

0010  =  DPEHTH  EQU  .16 . ;  HEATH  EXTENSIONS . 

. 0018’= . DPEL  ' ' '  ‘  EQU  24  ; LENGTH  OF  DISK  PARAMETER  ENTRY 

. ;  HEATH  'EXTENSIONS. . 

0010  =  DPEFLAG  EQU . DPEHTH+O . J FLAGS . 

. OOEO  = . DPETYPE  EQU  11100000B  ;BIT  7-5  =  DEVICE  TYPE 

0000  =  DPENE  .EQU  pOOOpqOOB . ;  NON-EXISTENT . 

. 0040'  '= . DPEH17  ’  EQU . OIOOOOOOB  ;H  17 

0060  =  DPEH37  EQU  . . . .  01 100000B . ;H.37 . 

. 0080’  = . DPEH47  ’  EQU  iobbdoOOB  ;H47 

OOCO  =  DPEH67H  EQU . IIOGOOpOB . ;H 67. HARD  DISK . 

. 00C8  '= . DPEH67F  EQU . iioOIOOOB  ;H67  FLOPPY  DISK 

00E8  =  DPETYPF  EQU . DPETYPE  ?.*! .  PPEH67F . ;  H.67 .  TYPE  MASK . 

. 6616  = . DPEP7C  EQU . dobldOOOB  ;BIT  4  —  0=BASE  PORT  78H  1=P0RT  7CH 

0010  =  DPE48RO  EQU  00010000B  ...  ;BIT.  4  FOR  H.37 . 

.  ;  48  TPI  MEDIA  IN  96  TPI  DRIVE  (R/0) 

0008  =  DPE96T  EQU  0000 1 0OOB . ; BIT  3.  -7.  0=48  TPI  DRIVE  _  _  1=96  TPI  DRIVE 

. 0004“= . DPEASGN  EQU . odobdldOB  ;BIT  2  —  FOR  H67  HARD  DISK 

;  0=UNASSIGNED  A  PARTITION 

. ; . 1= ASSIGNED  A'  PARTITiON . 

0004  =  DPEED  EQU  00000 100B ; BIT  2  -7  1=EXTENDED  DOUBLE  DENSITY . 

. 0002  ’  = . OPE DD  ' '  ’  EQU . b'OOObO 1 0B . j BIT  1  --  0 sSiNGLE  DENSITY  1  = DOUBLE 

0001  =  DPE2S  EQU  0000000 IB  JBIT  0  —  0= SINGLE  SIDED  _  1=D0UBLE . 

0011  =  DPEUNIT  EQU  DPEHTH+1  ;UNIT  SELECT  VALUE  . 

. 0012  = . DPERPS  'EQU . DPEHTH+2 . CP/M  RECORDS  PER  PHYSICAL  SECTOR 

0013  =  DPERPAB  EQU  DPEHTH+3 . ;CP/M  RECORDS  PER  ALLOCATION .BLOCK . 

. Obi 4  = . DPETRK  ’  EQU . DPEHTH+4 . 'TRACK  COUNTER 

0080  =  DPEUNK  EQU  10000000B  ; TRACK  POSITION  UNKNOWN . 

. 0015  = . DPESEK  '  'EQU . DPEHTH+5 . ';MbtbR  SPEED'  AND  SEEK  SPEED 

;BIT  6-0  =  SEEK  SPEED  VALUE 

. 008b  = . DPEMO  “  EQU . iobobdOOB . 7  =  MOTOR  UP  TO ' SPEED  FLAG 

;  0=1  SEC  1=250  MSEC 

. Ob  1 6“= . iJPEUPB  4  'eQU . DPEHTH+6 . Vh67'  PARTITiON  UPPER '  BOUND  +  1 

0016=  DPEFLG2  EQU  DPEHTH+6  ; 2ND  FLAG  BYTE . 

.  0002  = . DPEiMG  '  EQU . 0000001  OB . ;BiT  *1*  ’ '  IMAGINARY  DRIVE 

0001  =  DPE96TM  EQU  OOOOOOOIB  ;BIT  0  0=48  TPI  MEDIA  1=96  TPI  MEDIA 

. 0017  = . b'P'gUW  ‘  EQU . DPEHTH+7 . ;LAST  LOG 7 CAL  UNIT  'MOUNTED 
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0008  = 

DPEHL 

EQU 

8 

; LENGTH  OF  HEATH  EXTENSION 

. 

•  DISK 

PARAMETER  BLOCK. 

9 

0000  = 

0002  r 

DPBSPT 
. .  DPBBSH 

EQU 

EQU 

o- 

DPBSPT+2 

; SECTORS  PER  TRACK 
.  ;B.l,QCK  SHIFT.  FACTOR 

0003  = 

0004  = 

DPBBLM 

DPBEXM 

EQU 

EQU 

DPBSPT+3 

DPBSPT+4 

; BLOCK  MASK 
;  EXTENT  MASK 

0005  = 

0007  = 

DPBDSM 

DPBDRM 

EQU 

EQU 

DPBSPT+5 

DPBSPT+7 

; TOTAL  9  OF  BLOCKS  -  1 
;#  OF  DIRECTORY  ENTRIES  -  1 

0009  = 

OOOA  = 

DPBALO 

DPBAL1 

EQU 

EQU 

DPBSPT+9 
.  DPBSPT+10 

; INITIAL  AL0  VALUE 
; INITIAL  AL1  VA^UE 

OOOB  = 

OOOD  = 

DPBCKS 

DPBOFF 

EQU 

EQU 

DPBSPT+11 
DPBSPT+1 3 

{SIZE  OF  DIRECTORY  CHECK  VECTOR 
; NUMBER  OF  SYSTEM  TRACKS 

OOOF  - 

DPBL 

EQU 

15 

{LENGTH  OF  DISK  PARAMETER  BLOCK 

t 

• 

;  DISK 

A 

_ 1 . 

LABEL  DEFINITIONS 

;  DISK 
:  ALSO 

LABELS  ARE  USED  ON  ALL  SYSGEN’ED  DISKS. 

THE  H37  AND  H67  HARD  DATA  DISKS  USE  THE  LABEL. 

;  TO  MAINTAIN  COMPATIBILITY  WITH  OLDER  RELEASES  OF  CP/M 

» 

J  THE  LABEL 

RESIDES  ON  THE  1ST 

SECTOR  OF  TRACK  0. 

;  AT  THE  END  OF  THE  LABEL  IS  A 

CHECKSUM.  THE  CHECKSUM  IS  CALCULATED 

;  BY  ADDING 
. .  ;  A  BYTE  AT 

UP  THE  VALUES  IN  THE  LABEL  PRIOR  TO  THE  CHECKSUM  SLOT 

A  TIME,  THEN  TAKING  THE  ONE'S  COMPLEMENT  OF  THE  SUM. 

*  . . . .  *  *•' 

0000  = 

LABVER 

EQU 

0 

{CURRENT  FORM  9  FOR  LABEL 

0000  = 

LABBUF 

EQU 

0 

{SLOT  FOR  JUMP  INSTRUCTION  AROUND  LABEL 

0003  = 

BDTYPE 

EQU 

LABBUF+3 

{SLOT  FOR  DRIVE  TYPE 

0004  = 

0004  = 

LABEL 
...  MPT.X?.. 

EQU 

EQU 

LABBUF+4 

LABEL+O 

{SLOT  FOR  LABEL  TYPE 

0005  = 

OOOD  = 

LABHTH 

LABDPB 

EQU 

EQU 

LABTYP+1 

LABHTH+DPEHL 

{SLOT  FOR  HEATH  EXTENSIONS  TO  DPE 
{SLOT  FOR  DISK  PARAMETER  BLOCK 

001C  = 

LABCS 

EQU 

LABDPB+DPBL 

{CHECKSUM 

0019  = 

LABLEN 

EQU 

LABCS-LABEL+1 

{LABEL  LENGTH 
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;  SOFTWARE  BOOT  CODE  DEFINITIONS 


0000  = 

SBC$SBC  EQU 

0 

; SECTOR  #  OF  SBC 

0000  = 
nnn^  - 

SBC$JMP  EQU 
SBCfcVER  EQU 

OOOOH 

0003H 

; JUMP  TO  SOFTWARE  BOOT  CODE 

jSQFTWARf  BQQT  .CODE  VERSION  .NUMBER . 

0004  = 

0005  - 

SBC $ REV  EQU 
SBC$DBS  EQU 

0004H 

0005H 

; SOFTWARE  BOOT  CODE  REVISION  NUMBER 
■DEFAULT  BOOT  STRING 

0018  = 

00 IB  5 

SBC$BSA  EQU 
SBC$BSB  EQU 

0018H 

001BH 

; SECTOR  ADDR  OF  BAD  SECTOR  TABLE  A 
; SECTOR  ADDR  OF  BAD  SECTOR  TABLE  B 

001E  = 

0021  = 

SBC$SBA  EQU 
SBC$SBB  EQU 

001  EH 

002 1H 

; SECTOR  ADDR  OF  SUPER  BLOCK  A 

: SECTOR  ADDR  OF  SUPER  BLOCK  B  . 

0024  = 

0026  = 

SBC$SSZ  EQU 
SBC$SPT  EQU 

0024H 

0026H 

; SECTOR  SIZE 

; SECTORS  PER  TRACK  . 

0028  = 

002A  s 

SBC$TPC  EQU 
SBC$CPV  EQU 

0028H 

0Q2AH 

; TRACKS  PER  CYLINDER 

; CYLINDERS  PER  VOLUME  . 

002C  = 

002E  = 

SBC$SPS  EQU 
SBC$VSZ  EQU 

002CH 

002EH 

; SECTORS  PER  SLAB 
; VOLUME  SIZE  (SECTORS  PER  VOLUME) 

0031  = 

0032  = 

SBC$NSL  EQU 
SBC$CSA  EQU 

003 1H 

0032H 

; NUMBER  OF  SLABS  -  1 
; CHECKSUM :  SUPER  BLOCK  A 

0034  = 

0036  = 

SBC$CSB  EQU 
SBC$CBA  EQU 

0034H 

0036H 

; CHECKSUM:  SUPER  BLOCK  B 
; CHECKSUM:  BAD  SECTOR  TABLE  A 

0038  = 

SBC$CBB  EQU 

0038H 

; CHECKSUM :  BAD  SECTOR  TABLE  B 

0080  = 

SBC$LEN  EQU 

0080H 

{SBC  LENGTH 

;  SUPER  BLOCK 

DEFINITIONS 

0000  = 

0001  = 

SPB$OSD  EQU 
SPB$PAT  EQU 

0 

1 

{OPERATING  SYSTEM  DEFINITIONS 

; PARTITION  TABLE  . 

;  OPERATING 

SYSTEM  NAME  TABLE  DEFINITIONS  . 

0010  = 

SPB$OSL  EQU 

16 

; LENGTH  OF  EACH  ENTRY  . 

0010  = 

SPB$OSN  EQU 

16 

; NUMBER  OF  ENTRIES 

;  PART if ION 

TABLE  ENTRIES 

0000  = 

00  IF  = 

SPBIOSI  EQU 
SPB$OSM  EQU 

0 

0001 1 1 1 1B 

; OPERATING  SYSTEM  ID 
{OPERATING  SYSTEM  ID  MASK 

00  IE  = 

00  IF  = 

SPB$UAR  EQU 
SPB$EOL  EQU 

0001  111 OB 
SPB$OSM 

; UNALLOCATED  REGION 
{END  OF  LIST 

0001  = 

SPBIFSN  EQU 

1 

{FIRST  SECTOR  #  OF  PARTITION 

o'd64  = 

SPB$PEL  EQU 

4 

{LENGTH  OF  ENTRY 

0663  = 

SbcWl'  EQU 

3 

{LENGTH  OF  ENTRY 
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• 

;  ENTRY  POINT 

TABLE 

0000  C3340C 

JMP 

CBOOT 

jFROM  COLD  START  LOADER 

0663  039600 

WBOOTE :  JMP 

WBOOT 

;tO  INITIATE  A  WARM  BOOT 

0006  C3CE08 

JMP 

CONST 

: CHECK  CONSOLE  STATUS 

0009  C3F306 

JMP 

CON  IN 

;READ  CONSOLE  CHAR  . 

OOOC  C30109 

JMP 

CONOUT 

; WRITE  CONSOLE  CHAR 

006F  C31F09 

jMf» 

List 

; Write  list  device  char  . 

0012  C32F09 

JMP 

PUNCH 

; WRITE  PUNCH  DEVICE  CHAR 

obi$  c 5^009 

JMP 

READER 

0018  C37701 

JMP 

HOME 

;SET  DISK  TO  TRACK  ZERO 

66 ifc  C38A01 

JMP 

SETDSK 

^SELECT  disk  drive 

001E  C38401 

JMP 

SETTRK 

;SEEK  TO  TRACK 

0021  03 1202’ 

JMP 

SETSEC 

;SET  SECTOR  NUMBER  . 

0024  C31802 

JMP 

SETDMA 

;SET  STARTING  ADDRESS  FOR  DISK  I/O 

002?  032502* 

JMP 

READ 

;READ  SELECTED  SECTOR  . 

002A  C33F02 

JMP 

WRITE 

;WRITE  SELECTED  SECTOR 

002D  C3OF09 

JMP 

LISTST 

0030  C31E02 

JMP 

SECTRAN 

; SECTOR  TRANSLATE  ROUTINE 
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;  BIOS  HEADER  SECTION. 


;*«»  NOTE  *  *  » 

• 

; . IF  *  THIS’  SECTION  ’  IS  ALTERED,’  THEN  ’  THE  *  FILE ‘  1 BIOSDEF .  LIB ' 

; . MUST  .ALSO  .BE  UPDATED, . 


PP.33. 93.  BIOSVER  DB  VERS . ; BIOS  VERSION 


00 3 ^  A9 

DEFIOB 

DB 

DIOB 

; DEFAULT  IOBYTE 

0035  10 

PRTRDY 

DB 

010H 

; PR INTER  (LPT)  READY  MASK 

;  (CTS  =  01 OH  WHICH  IS  DEFAULT 

;  DSR  =  020H) 

0036  80 

MODE 

DB 

PARTITN»MODEB3+MODEB7 

0001  = 

MODEBO 

EQU 

0000000 IB 

;BIT  0  1=CRT  ON  H8-5  CARD 

0002  = 

M0DEB1 

EQU 

0000001 OB 

;BIT  1  1=EXTENDED  DISK  ERROR  MSG'S 

0004  = 

M0DEB2 

EQU 

00000 100B 

;BIT  2  0  =  LPT  READY  IS  LOW 

:  1  =  LPT  READY  IS  HIGH 

0008  = 

M0DEB3 

EQU 

00001000B 

;BIT  3  1=PARTITI0NING  USED 

0040  = 

M0DEB6 

EQU 

01000000B 

;BIT  6  1=RUN  'AUTO'  ON  WARM  BOOT 

0080  = 

M0DEB7 

EQU 

10000000B 

;BIT  7  1 =RUN  'AUTO'  ON  COLD  BOOT 

SERIAL’  DEVICE-  STRUCTURES 

♦ 

• 

DB 

PORTSNUMBER 

4 

1 

DW '  ‘  " 

TONTROLIWORD'  ’  ‘ 

1 

WHERE 

THE  CONTROL$WORD  CONTAINS 

B15  MAP  LOWER  TO  UPPER  CASE 

» 

B14-B12  NUMBER 

OF  NULLS  AFTER  A  CR 

I 

B 11-BOO  BAUD  RATE  DIVISOR 

0037  E8 

H84PT 1 : 

DB 

H84CRT 

0038  OC80 

CRTBAUD 

DW 

B9600+8000H 

003A  DO 

H84PT2: 

DB 

H84TTY 

003B  8001 

TTYBAUD 

:DW 

B300 

003D  EO 

h84'PT3: 

DB 

h84Lpt 

003E  1800 

LPTBAUD 

:DW 

B4800 

.  0040  D8 

H84PT4: 

DB 

H84RDP 

0041  8001 

RDPBAUD:DW 

B300 

.  0043  00 

DB 

O’ 

;  RESERVED’  FOR'  5’Tft' SERIAL  DEVICE  STRUCTURE 

0044  0000 

DW 

0 

0046  10 

t 

BSIZE 

DB 

(BIOSEND-BIOS+255)/256  ;BIOS  SIZE  IN  PAGES 

OW  05CF 

. BEKD  ’  ’  ’ 

DW' 

BiOSEND 

jENDING  ADDRESS  OF  BIOS  f  1 

0049  0000 

SECNT17  DW 

0 

;H 1 7  SOFT  ERROR  COUNT  (SINCE  COLD  BOOT) 

o'o4b  boob 

SECNT37 

DW 

b 

;H37  SOFT  ERROR  COUNT  (SINCE  COLD  BOOT) 

004D  03 

BNDISKS 

DB 

NDISKS 

;NUMBER  OF  DISKS  POSSIBLE  IN  THIS  BIOS 

004E 

DPBASE 

DS 

0 

; START  OF  DISK  PARAMETER  ENTRY  TABLES 
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. IF. . . . 

...H.17.T . 

004E 

IDOCOOOO 

DPEO:  DW 

XLT17  »OOOOH 

; TRANSLATE  TABLE 

...0.052 

POOQQOOQ 

. DW.... 

. . .  OOOOH...QOOPH . 

. ;  S.C.R  ATC.H . 

0056 

34OD0E0C 

DW 

DIRBUF, DPB17S 

;DIR  BUFFt PARM  BLK 

005A 

COODB40D 

DW 

. . .  .Q3YP.JU.YQ. . 

; CHECK, ALLOC  VEC 

005E 

40 

DB 

DPEH17 

;DISK  TYPE 

. .  QQ5F.  02 . 

DB 

..go . 

.j.SEL.ECT.  .C.QPE . 

0060 

02 

DB 

2 

; NUMBER  OF  128  BYTE  RECORDS/PHYSICAL  SECTOR 

0061 

08 

DB 

8 

; NUMBER  OF  RECORDS/ALLOCATION  BLOCK 

0062 

FF 

DB 

OFFH 

JTRACK  LOCATION 

0063  OF 

DB 

STEPR 

;STEP  RATE 

0064 

00 

DB 

0 

;FLAG  BYTE  2 

0065 

00 

DB 

...  P . 

. ;  .’REAL.’. - .  LAST.  DISK.  .MOUNTED . 

; ’IMAGINARY’  -  CORRESPONDING  REAL 

. : . . . . DRIVE. ’S.  .LPQICAI.  .UNIT.  .# . 

0066 

IDOCOOOO 

DPE 1 :  DW 

XLT17 ,OOOOH 

006A 

00000000 

DW 

OOOQtf ,OOOOH 

006E 

34OD0E0C 

DW 

DIRBUF ,DPB17S 

0072 

DCODDOOD 

DW 

CSV1 ,  ALV1 

0076 

40 

DB 

DPEH17 

0077 

04 

DB 

. . .  pi. . 

0078 

02 

DB 

2 

0079 

08 

DB 

8 

007A 

FF 

DB 

OFFH 

007B 

OF 

DB 

STEPR 

007C 

do 

DB 

0 

007D 

00 

DB 

0 

007E 

IDOCOOOO 

DPE2:  DW 

XLT17.0000H 

0082 

00000000 

DW 

OOOOHtOOOOH 

0086 

340D0E0C 

DW 

DIRBUF .DPB17S 

008A 

F8ODEC0D 

DW 

. . .  .C.SV2.,.AL.y2. . 

008E 

40 

DB 

DPEH17 

008F 

08 

DB 

U2 

0090 

02 

DB 

2 

0091 

08 

DB 

8 

0092 

FF 

DB 

OFFH 

0093 

OF 

DB 

STEPR 

0094 

do 

DB 

0 

0095 

00 

DB 

0 

ENDIF 

.  . . . . . . . . . . . . . 

IF 

H37T 

DPE37$0  DW 

OOOOHTOOOOH 

J TRANSLATE  TABLE 

DW 

OOOOH.OOOOH 

; SCRATCH 

DW 

DIRBUF fDPB37$0 

;DIR  BUFF,  PARM  BLK 

DW 

CSV37$0,ALV37$0 

DB 

DPEH37+DPEDD 

; ASSUME  DOUBLE  DENSITY  AT  COLD  BOOT 

DB 

CONDSO 

DB 

2 

DB 

8 

DB 

DPEUNK 

DB 

FDFS30 

! 

DB 

0 

DB 

0 

DPE 3 7$ 1  DW 

OOOOH.OOOOH 
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DW  OOOOH, OOOOH 

. W . DIRBUF.  p.PB37.$.l . 

DW  CSV3?$1,ALV37$1 

. DB . DPpH37tpPEPP. . 

DB  COKi>S  1 

. PB . .3 . 

DB  8 

. .DB . DPEUNK . 

DB  FDFS30 

. DB . Q . 

DB  0 

PPE.37*2.  .PV . .QO0.QH  •  Q0.QQH . 

DW  OOOOH, OOOOH 

. DW . pIRBUF,ppB37.$.? . 

DW  CSV37$2,ALV37$2 

. DB . PPEH.37tPP.EPP . 

DB  C0NDS2 

DB  2  . 

DB  8 

DB  DPEUNK 

DB . FDFS30 

. DB . 0 . 

DB  6 

. . END  IF . 

IF  H47T  . . . 

DPE47$0  DW  "  XLTOS , OOOOH  ; TRANSLATE  TABLE 
DW  OOOOH, OOOOH  ; SCRATCH 

. DW . DIRBUF , DPBOSS  '  YblR  BUFF,  PARM  BLK 

DW  CSV47$0,ALV47$0  ; CHECK,  ALLOC  VEC 

. DB . DPEH'47 . 

DB  OOOH 

. DB . 1 . 

. DB . 8 . 

db  6, 6, 6, 6 

DPE47^1  DW  XLTOS, OOOOH 

. DW . OOOOH, OOOOH 

DW  DIRBUF j DPBOSS 

DW  CSV47$1fALV47$i 

. DB . DPEH47 . 

DB . 020H 

DB  1 

. DB . 8 . 

DB  0,0, 0,0 

. ENDIF . 


IF  H67T 

DPE67$0  DW  OOOOH.OOOOH 

. bw' . 66'ooh,  ooboH . 

DW  DIRBUF, DPB67$0 

. DW . OOOOH  ,ALV67$b . 

DB  DPEH67H  ;H67  HARD  DISK 

. DB . 6 . ;  SELECT . 

DB  2  ; LOGICAL  IN  EACH  PHYSICAL 

. DB . 32 . -ALLOCATED  AT'  ONCE . 

DW  0  ; TRACK  0  OFFSET 


) 


) 
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DW 

0 

;END  OF  PARTITION  +  1 

IF 

H67PART2 

DPE67$2  DW 

OOOOHtOOOOH 

DW 

OOOOH.OOOOH 

DW 

DIRBUF,DPB67$2 

DW 

OOOOH. ALV67$2 

DB 

DPEH67H 

;H67  HARD  DISK  (2ND  PARTITION) 

DB 

0 

; SELECT 

DB 

2 

; LOGICAL  IN  EACH  PHYSICAL 

DB 

32 

; ALLOCATED  AT  ONCE 

DW 

0 

; TRACK  0  OFFSET 

DW 

0 

; END  OF  PARTITION  +  1 

ENDIF 

DPE67$1  DW 

XLTOS. OOOOH 

; FLOPPY  IN  H67 

DW 

OOOOH.OOOOH 

DW 

DIRBUF.DPBOSS 

DW 

CSV67$1 ,ALV67$1 

DB 

DPEH67F 

;H67  FLOPPY 

DB 

020H 

I SELECT 

DB 

1 

; LOGICAL  IN  EACH  PHYSICAL 

DB 

8 

; ALLOCATED  AT  ONCE 

DB 

0,0. 0,0 

ENDIF 
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WARM  BOOT  —  READ  IN  BDOS  AND  CCP 

INITIALIZE . 

JUMP  TO  CCP 


0096  31050F 

WBOOT : 

LXI 

SP, STACK  _ 

. . SET.  .STACK.  POINTER . 

0099  FB 

El 

; INSURE  INTERRUPTS  ARE  ENABLED 

009A  AF 

XRA 

A 

009B  4F 

MOV 

C,  A 

;BOOT  FROM  DRIVE  0  . 

009C  5F 

MOV 

E,A 

;ACT  LIKE  THIS  IS  THE  FIRST  LOGIN 

009D  CD8A01 

CALL 

SETDSK 

OOAO  7C 

MOV 

A.H 

OOA1  B5 

ORA 

L 

00A2  CA5F01 

JZ 

WBTE 

;  BR  IF  SELECT  ERROR 

00 A5  E5 

PUSH 

H 

;GET  POINTER  TO  XLATE  AND  SPT  VALUE  FOR 

;  TRACKS  1  TO  N 

00 A 6  CDB308 

CALL 

HLIHL 

5 GET  THE  POINTER  TO  THE  TRANSLATE  TABLE 

00A9  22120E 

SHLD 

XLTW1 

;  AND  SAVE  IT 

OOAC  220F0E 

SHLD 

XLTW 

OOAF  El 

POP 

H 

OOBO  E5 

PUSH 

H 

odBi  nd A6*o 

LXI 

D.DPEDPB 

;GET  THE  POINTER  TO  THE  DISK  PA RAM  BLOCK 

OOB4  19 

DAD 

D 

. 0'Ofi$‘  C'D'bW  ■ 

CALL 

HLIHL 

00B8  7E 

MOV 

a;m 

;THE  FIRST  ENTRY  OF  WHICH  IS  THE  NUMBER 

.  0069  32 1 i OE 

STA 

SPT1 

;  OF  SECTORS  PER  TRACK 

OOBC  320E0E 

STA 

SPT 

. O'OBF'  tt . 

POP 

H 

IF 

H47T  OR  H67T 

PUSH 

H 

LXI 

D , DPEHTH 

DAD 

D 

;GET  POINTER  TO  HEATH  DISK  TABLE 

MOV 

AtM 

;GET  TYPE  BYTE 

MOV 

C ,  A 

ANI 

DPETYPE 

CPI 

DPEH47 

; CHECK  FOR  TYPE  H47 

JZ 

WBTOX 

;IS  H47 

MOV 

...A,C . 

ANI 

DPETYPF 

CPI 

DPEH67F 

; CHECK  FOR  TYPE  H67  FLOPPY 

JNZ 

WBTO 

;IF  NOT  H47  OR  H67,  THEN  USE  THESE  VALUES 

WBTOX: 

MVI 

A, 26 

;  ELSE  USE  SINGLE  DENSITY  VALUES 

LXI 

H, XL TOS 

;  FOR  TRACK  0 

STA 

SPT 

SHLD 

XLTW 

WBTO : 

POP 

H 

ENDIF 


. OOCO'  TTtOOt) 

LXI 

Dt DPEHTH 

OOC3  19 

DAD 

D 

;GET  POINTER  TO  HEATH  DISK  TABLE 

. '0'0C4‘  Tl8o£9 

LXI 

i>tCCP-12& 

; ASSUME  STARTING  ADDRESS  OF  BOOT  TRACK 

00C7  01002C 

LXI 

BtNSECTS*256 

;B  =  #  OF  SECTORS.  C  =  STARTING  SECTOR 

(((<((( 


))}})))))) 
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IF 

.  H37T  OR  H67T 

MOV 

ANI 

AtM 

DPETYPE 

CPI 

JZ 

DPBH37 

WBTOY 

;BR  IF  H37 

CPI 

JNZ 

DPEH67H 

WBTOZ 

;BR  IF  NOT  H67 

WBTOY : 

LXI 

ENDIF 

D.CCP-256 

OOCA  210000 

WBTOZ: 

LXI 

H,  0 

; STARTING  TRACK  =  0 

OOCD  221E0E 

WBT1 : 

SHLD 

SEKTRK 

OODO  EB 

OOD1  220C0E 

XCHG 

SHLD 

DMAB 

J STARTING  DMA  ADR  FOR  THIS  TRACK 

00D4  C5 

WBT2: 

PUSH 

B 

00D5  0600 

00D7  2A0F0E 

mvT 

LHLD 

B,0 

XLTW 

OODA  EB 

OODB  CD1E02 

XCHG 

CALL 

SECTRAN 

OODE  4D 

.  OODF  7D 

MOV 

MOV 

C.L 

A,L 

OOEO  F5 

00E1  CD1202 

PUSH 

CALL 

PSW 

SETSEC 

JSET  THIS  AS  THE  SECTOR  TO  READ 

OOE4  FI 

00E5  3D 

POP 

DCR 

PSW 

A 

; CHANGE  SECTOR  NUMBER  TO  0  THRU  SPT-1 

00E6  CD6B01 
OOE9  222E0E 

CALL 

SHLD 

CDA 

DMAADR 

OOEC  7C 

OOED  FEEA 

MOV 

CPI 

A,H 

CCP/256 

:Q.  IS  THIS  SECTOR  PART  OF  BOOT  CODE 

OOEF  DAO401 
00F2  FEOO 

JC 

CPI 

WBT3 

BIOS/256 

;is  THIS  SECTOR  PART  OF  THE  BIOS 

OOF 4  D20401 

JNC 

WBT3 

00F7  CD2B02 

CALL 

READ 

OOFA  B7 

OOFB  C25F01 

ORA 

JNZ 

A 

WBTE 

OOFE  Cl 

POP 

B 

OOFF  05 

0100  CA2801 

DCR 

JZ 

B 

WBT4 

JIF  THAT  IS  THE  LAST  ONE,  SET  POINTERS  &  LEAVE 

0103  C5 

PUSH 

B 

01°5  OC  INR  C  ;NEXT  SECTOR 

0106  3A0E0E  LDA . SPT . ;  NUMBER'  Of  SECTORS'  PE  ft  *  TRACK . 

.919?.  B? .  CMP  C  ;HAVE  WE  OVERFLOWED  TO  NEXT  TRACK? 

010A  C2D400  JNZ . WBT2 . -NO . 

01  Op  OEOO  MV  I  C,0 

6 10F  CD6B01 . CALL'  '  CDA . ;  UPDATE  TRACK '  STARTING  ADDRESS . 


0112  £$ . 

0113  3A110E 


PUSH 

LDA 


H"  " 

SPT1 


BEYOND  TRACK  0 
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0116  320E0E 
0119  2A120E 

STA 

LHLD 

SPT 

XLTV1 

;  SO  UPDATE  SPT  AND  XLTW  TO  BE  THE  VALUES 

: . FOR .  TRACKS  .  1 .  AND.  BEYOND . 

011C  220F0E 

01  IF  El 

SHLD 

POP 

XLTW 

H 

0120  EB 

XCHG 

0121  2A1E0E 
0124  23 

LHLD 

INX 

SEKTRK 

H 

0125  C3CD00 

JMP 

WBT1 

0128  3EFF 

WBT4: 

MVI 

A , BT$WM 

;FLAG  THIS  AS  A  WARM  BOOT 

012A  F5 

GOW: 

PUSH 

PSW 

; SAVE  THE  BOOT  TYPE 

012B  3EC3 

01 2D  210300 

MVI 

LXI 

AtMI$JMP 

H.WBOOTE 

; INITIALIZE  BIOS  AND  BDOS  VECTORS 

0130  32006b 

0133  220100 

STA 

SHLD 

BOOT 

BOOT+1 

0136  2l06F2 
0139  320500 

LXI 

STA 

h,bdos+6 

BOOT+5 

013C  22666b 

SHLD 

bo6t+6 

0'i3F  618660 
0142  CD 1802 

LXI 

CALL 

B , BUFF 

SETDMA 

;SET  DEFAULT  DMA  ADDRESS 

0145  CD0E04 

CALL 

FLUSH 1 

;RE-INIT  HOST  DEBLOCKING  . 

0148  FI 

POP 

PSW 

;GET  THE  BOOT  TYPE 

'0149  6F 

014A  3A3600 

RRC 

LDA 

MODE 

;  CARRY  SET  it  WARM  BOOT 

. 0T4DD25101 . 

0150  17 

"W” 

RAL 

"G6W1 . 

;i't  Warm  Boot 
;  THEN  SHIFT  LEFT  TWICE 

0151  17 

0152  3A0400 

G0W1 : 

RAL 

LDA 

LOGDSK 

;6ARRY  SET  IF  TO  RUN  AUTO 
;GET  DISK  NUMBER  TO 

0155  321 DOE 
0158  4F 

STA 

MOV 

SEKDSK 

C.A 

;  SAVE  AS  DESIRED  DISK 
;  PASS  TO  CCP  IN  C 

0159  DAOOEA 
015C  C303EA 

JC 

JMP 

CCP 

CCPCLR 

‘.EXECUTE  AUTO 
; EXECUTE  CCP 

015F  21C20B 
0162  CD9D0B 

WBTE: 

LXI 

CALL 

H.BTMSG 

PMSG 

I  PRINT  BOOT  ERROR  MESSAGE 

bl'65  CDF 308 
0168  C39600 

CALL 

JMP 

CONIN 

WBOOT 

jWAiT  FOR  KEYBOARD 
;TRY  AGAIN 
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;.QPA.  -  .CORRECT  .PM A  .APPRESS . 

;  ENTRY  A  =  RECORDS  TO  ADJUST 


• 

.  .PM.AB  . 

=  STARTING  ADDRESS  OF  TRACK 

• 

f 

• 

.  .  -t . 

EXIT 

HL 

=  CORRECTED  ADDRESS 

.  016B  2A0C0E 

CDA: 

LHLD 

DMAB 

;GET  STARTING  ADDRESS  OF  TRACK 

016E  B7 

.  916F  Ip 

ORA 

A 

; CLEAR  CARRY  . 

; DIVIDE  BY  2 

0170  57 

. Q.171.3P.P0. 

MOV 

. .  KYI . . . 

D,  A 

. .  A...Q _ 

;  D  =  A/2 

0173  IF 

017A  5F 

RAR 

MOV 

..M 

;  E  =  OOH  OR  80H 

0175  19 

.  0176  C9 

DAD 

RET 

D 
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• 

• 

.  .  .9. . 

HOME 

-  SEEK  HEAD 

TO  TRACK  0  (DEFERRED)  . 

. 0.1.77.  3.4320C . . 

HOME: 

LDA 

HSTWRT 

; CHECK  FOR  PENDING  WRITE 

017A  B7 

ORA 

A 

. Q17P  C28101 

JNZ 

HOMED 

017E  323 IOC 

STA 

HSTACT 

; CLEAR  HOSf  ACttVE  FLAG  . 

0181  010000 

HOMED: 

LXI 

Bf0 

;SET  TO  TRACK  0 

1 

SETTRK 

-  SET  DISK  TRACK  MftBEft  . 

ENTRY:  BC  DESIRED  TRACK  (  0  TO  N-1  ) 

1 

0184  60 

SETTRK: 

MOV 

H.B  . 

0185  69 

MOV 

L,C 

6 186  221E0E 

SHLD 

0189  C9 

RET 
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SETDSK  -  SELECT  A  DISK  DRIVE 


ENTRY:  C 

DESIRED  DISK 

; 

E 

tSB  =  0  IF  FIRST  LOGIN 

018A  7B 

SETDSK:  MOV 

A,  E 

018B  32EC01 

STA 

SETDSKB 

;SAVE  1ST  FLAG  . 

018E  79 

MOV 

A,  C 

;GET  THE  DRIVE  #  FROM  C 

018F  32EB01 

STA 

SETDSKA 

; SAVE  LOGICAL  UNIT  NAME 

0192  FEO^ 

CPI 

NDISKS 

; CHECK  IF  LEGAL 

0194  D2DB01 

JNC 

SETDE 

;  BR  IF  NOT 

0197  214000 

LX  I 

H, BDMAP 

;GET  MAPPED  DRIVE  # 

019A  CD9508 

CALL 

DADA 

; (HL) =POINTER  TO  LOGICAL/MAPPED  DRIVE  # 

019D  7E 

MOV 

A,M 

;GET  LOGICAL/MAPPED  DRIVE  # 

019E  321D0E 

STA 

SEKDSK 

;SAVE  IT 

01 A 1  CD9A08 

CALL 

GETDPE 

;GET  ADDR  OF  DPE 

01A4  22ED01 

SHLD 

SETDSKC 

^SAVE  ADDR  OF  DPE 

01A7  111000 

LXI 

D.DPEHTH 

;GET  ADDR  OF  DPE'S  HEATH  EXTENSIONS 

01AA  19 

DAD 

D 

01AB  22080E 

SHLD 

DPBX 

; SAVE  IT 

IF 

PARTITN 

MOV 

A,M 

;GET  HEATH  EXTENSION  FLAG  BYTE 

ANI 

DPETYPF 

CPI 

DPEH67H 

JNZ 

SETDSK 1 

;BR  IF  NOT  H67  HARD  DISK 

MOV 

A,M 

ANI 

DPEASGN 

; CHECK  IF  PARTITION  IS  ASSIGNED 

JZ 

SETDE 

;BR  IF  NOT 

ENDIF  . 

SETDSK 1 : 

01AE  3AEC01 

LDA 

SETDSKB 

; RESTORE  FIRST  LOGIN  FLAG 

01B1  IF 

RAR 

;IF  FIRST  LOGIN 

01B2  DAD701 

JC 

SETDSK2 

;  BR  IF  NOT 

01B5  CD0004 

CALL 

FLUSH 

; FLUSH  HOST  BUFFER  (I  MAY  NEED  IT 

;  AND  ITS  ASSOCIATED  VARIABLES) 

01B8  213600 

LXI 

H ,  MODE 

;SAVE  MODE 

01BB  7E 

MOV 

A,M 

01BC  32EF01 

STA 

SETDSKD 

01BF  E6FD 

ANI 

OFFH-MODEB 1 

;TURN  OFF  EXTENDED  ERROR  MSG’S 

01C1  77 

MOV 

M,  A 

6lC2  3A166e 

LDA 

SEKDSK 

»SET  HOST  DPE^S  HEATH  EXTENSION 

01C5  CD4D04 

CALL 

SHD 

J  ADDR  AND  SWAP  DISK  IF  NEEDED 

01C8  110000 

LXI 

D , DDSEL 

ICALL  DEVICE  DRIVER  FOR  SELECT 

OlCB  CDFOOl 

CALL 

DSKDIS 

01CE  3AEF01 

LDA 

SETDSKD  . 

' '  ‘  YRESTORr  BIOS  MODE  BYTE . 

01D1  323600 

STA 

MODE 

CP/M  MACRO  ASSEM 

1  2.0  #030 

HEATH/ ZENITH 

BIOS  28  AUG  81 

01 DM  DADB01 . 

JC 

SETDSK2: 

SETDE 

. ;  ?R  .IF.  ERROR  .RETURNED  BY.  .PEyjCE .  PRIYER . . . 

01D7  2AED01 
01DA  C9 

LHLD 

RET 

SETDSKC 

;RET  WITH  ADDR  OF  DPE 

01DB  3AEB01 

SETDE :  LDA 

SETDSKA 

;GET  .DR JYE .  #.  FROM.  .ENTRY . 

01DE  210400 

L XI 

Hf LOGDSK 

; CHECK  TO  SEE  IF  ERROR  IS 

01E1  BE 

CMP 

M 

;  ON  DEFAULT  DISK 

01E2  C2E701 

JNZ 

SETDE 1 

;  BR  IF  NOT 

01E5  3600 

MVI 

M.O 

;SET  DEFAULT  AS  DRIVE  A 

oiE7  2ioodb 
01EA  C9 

SETDE 1:  LXI 

RET 

HtOOOOH 

;SET  ERROR  RETURN  VALUE 

01EB 

SETDSKA  DS 

1 

{LOGICAL  UNIT  #  FOR  SELECTION 

01EC 

SETDSKB  DS 

1 

; 1ST  TIME  FLAG 

01ED 

SETDSKC  DS 

2 

;ADDR  RETURNED  BY  GETDPE 

01EF 

SETDSKD  DS 

1 

{SAVED  BIOS  MODE  BYTE 
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. 0.1  Fp  7E 

.  DSKDIS; 

.MOV . 

.  A.,M . 

;GET  DJSK  DRIVE  TYPE 

01F1  07 

01F2  07 

RLC 

RLC 

01F3  07 

01F4  E607 

RLC 

ANI 

DPETYPE/32 

%: 

IF 

DPETYPE 

NE  1 1 100000B 

. D.1.F6.87. . 

ENDIF 

ADD 

A 

01F7  210202 
. P.IFA.  CD5508 

LXI 

CALL 

H,  DTT 

DADA 

01FD  CDB308 
0200  1? 

CALL 

DAD 

HLIHL 

D 

;ADD  JUMP  VECTOR  OFFSET 

0201  E9 

PCHL 

0202  FA07 

DTT : 

DW 

NULDVD 

JOOO  -  NON-EXISTANT 

6'20U  FA07 

DW 

NULDVD 

;001  -  RESERVED  . 

0206  F804 

IF 

DW 

H17T 

H17DVD 

;0 10  -  H17 

ELSE 

DW 

NULDVD 

ENDIF  . 

IF 

DW 

H37T 

H37DVD 

;011  -  H37 

0208  FA07 

ELSE 

DW 

NULDVD 

ENDIF 

IF . »47T 


DW 

H47DVD 

;  100 

-  H47 

. 0.2PA  FA07 

ELSE 

DW 

NULDVD 

ENDIF  . 

020C  FA07 

DW 

NULDVD 

;  101 

IF 

DW 

H67T 

H67DVD 

;  1 10 

-  H67 

020E  FA07 

ELSE 

DW 

NULDVD 

0210  FA07 . DW . NULDVD . \uY‘-  RESERVED 
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9ETSEC  -  SET  SECTOR  number  .  . 

1 

ENTRY  C  DESIRED  SECTOR  (NUMBERED  1  TO  SPT  ) 

> 


0212  79 

0213  3D 

0214  32200S 

SETSEC;  MOV 

DCR 

STA 

.  A..C . 

A 

.  .SEKS.EC .... 

;SET  SECTOR,  NUMBER . 

;SAVE  0  TO  SPT-1 

0217  C9 

RET 

•  SETDMA 

-  SET  DISK 

I/O  ADDRESS  . 

0218  60 

SETDMA:  MOV 

H.B 

;MOVE  ARGUMENT  FROM  BC  TO  HL 

0219  69 

MOV 

L,C 

021 A  222E0E 

SHLD 

DMAADR 

021D  C9 

RET 

i 


♦ 

1 

SECTRAN 

-  TRANSLATE  SECTOR  INDEX  USING  TABLE  AT  DE 

INTO  SECTOR  NUMBER  FOR  SKEW 

1 

• 

ENTRY 

C  =  SECTOR  INDEX  (0  TO  SPT-1) 

f 

t  .  . 

EXIT 

DE  =  ADDR  OF  TRANSLATE  TABLE 

HL  =  SECTOR  NUMBER  (1  TO  SPT) 

02  IE '  EB . ’SECTRAN : '  XCHG . ;  HL  ’POINTS  TO '  TABLE 

02 IF  7C  MOV  A,H  ; CHECK  FOR  NULL  XLATE  TABLE 


0226  B5 

0221  09 

ORA 

DAD 

“  1  " 

•”f . 

B 

0222  CA2$o2 

JZ 

SECTRAN 1 

;NULL  XLATE  TABLE 

0225  6E 

MOV 

L,M 

;L  CONTAINS  THE  TRANSLATE  SECTOR 

6226  2666 

MVI 

Hf0 

0228  eg 

RET 

SECTRAN 1 : 

. 022'9'  '23 . 

. INX ' 

H 

;PUT  IN  RANGE  1  TO  SPT 

022A  C9 

RET 
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1 

READ  - 

READ  THE  (LOGICAL)  RECORD  SET  BY  SETDSK,  SETTRK,  SETSEC 
.INTO  MEMORY  AT  DMAADR,  DEBLOCKING  AS  NECESSARY 

» 

0000  = 

WRALL 

EQU 

0  ; WRITE  TO  ALLOCATED 

. 000.1.5 . 

....HRPIR. 

. EQV. . . . 

1  ; WRITE  TO  DIRECTORY 

0002  = 

WRUAL 

.  ....  .f.  .....  . 

EQU 

2  ; WRITE  TO  UNALLOCATED 

READ.  T.HE.  SELECTED,  CP/M.  SECTOR 


022B  AF 

READ:  XRA 

A 

.Q22.C  .32330C. . . 

. STA . . . 

. . . UNAOMT . 

022F  3E01 

MVI 

A,  1 

.023.1. 322CQE... 

. S.TA . . . 

. . .  READOP. . 

. ;REAP  OPERATION 

023U  322B0E 

STA 

RSFLAG 

;MUST  READ  DATA 

.023.7..  3E.0.2 . 

. M.V.I . . . 

mu . 

0239  322D0E 

STA 

WRTYPE 

; TREAT  AS  UNALLOC 

.023.C.C30.903... 

. JMP . . . 

. . .  RW.QPEB . 

. ITO.  .PERFORM  THE  READ 
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;  WRITE  - 

WRITE  THE  (LOGICAL)  RECORD  SET  BY.  3ETDSK. . 5ETTRK.,.  .SET.SEC . 

« 

• 

FROM  MEMORY 

AT  DM A ADR ,  BLOCKING  AS  NECESSARY 

023F  AF 

WRITE:  XRA 

A 

0240  322COE 
0243  79 

STA 

MOV 

READOP 

A,  C 

;NOT  A  READ  OPERATION 

0244  322D0E 
0247  fE02 

STA 

CPI 

WRTYPE 

WRUAL 

0249  C28D02 

JNZ 

CHKUNA 

; CHECK  FOR  UNaLlOC 

.  ;  WRITE  TO  UNALLOCATED,  SET  PARAMETERS 

PAOfiOF  LHLD  DPBX  : SET  NUMBER  OF.  RECORDS.  PER  ALLOCATION . 

024F  23 

0250  23 

I  NX 

INX 

H 

H 

0251  23 

0252  7E 

I  NX 

MOV 

H 

A,M 

. 0'2'$3‘  '3'2’33  t)‘C  ‘  * ' 

0256  3A1DOE 

STA 

LDA 

UNACNT 

SEKDSK 

. 0259  3 2260 E 

025C  2A1E0E 

. St  A . 

LHLD 

UNADSK 

SEKTRK 

; UNADSK  =  SEKDSK 

. ‘62$F  '2'2270E 

SHLD 

UNATRK 

;  UNATRK  =  SEKTfiK 

.  6262  2AC&0E 

0265  11F0FF 

LHLD 

LXI 

DPBX 

D.-DPEHTH 

6268  19” 

0269  CDB308 

DAD 

CALL 

D 

HLIHL 

;HL  POINTS  TO  POINTER  TO  XL ATE  TABLE 

026C  7C 

MOV 

A,H 

. 026D'  B5 . 

026E  C27A02 

. ORA’ 

JNZ 

' '  L' . 

WRITEO 

; XL ATE  TABLE  PRESENT  . 

.  0271  3A206E 

0274  32290E 

Ida 

STA 

' '  s'e’KsLc 

UNASI 

;N0  XL ATE  TABLE 

0277  C38D02 

.JMP 

CHKUNA 

027A  3A200E 
027D  3C 

WRiTE'6:  LDA 

INR 

SEK&EC 

A 

;GET  DESIRED  SECTOR 

027E  OEOO 

MVI 

C,0 

; INITIALIZE  INDEX 

0280  BE 

0281  CA8902 

WRITE1 :  CMP 

JZ 

M 

WRITE2 

;FIND  SECTOR’S  iNDEX 

0284  OC 

INR 

C 

. 028$  23 

0286  C38002 

. W" 

JMP 

’  ‘  M . 

WRITE 1 

0289  79 

WRITE2:  MOV 

A,C 

;GET  THE  INDEX  . 

. -mrimov 

. STA’  ’  ’ 

UNAST . 

.  ;‘SAV£  It 

;  CHECK 

FOR  WRITE  TO 

UNALLOCATED  SECTOR  . 

028b  3A336C 
0290  B7 

CHKUNA:  LDA 
ORA 

UNACNT 

A 

; ANY  UNALLOC  REMAIN? 

. 029  V  CM W 

. JZ""’ 

"ALLOC . 

. ; SKIP  IF  ’NOT' . 

( 


( 


( 


( 


) 


) 
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MORE  UNALLOCATED  RECORDS  REMAIN 


. 0294.  .3D . 

. DCR  . . . 

...A . 

. . .  .j.UNA.CNT.  .=.  .UNACNT-1 . 

0295  32330C 

STA 

UNACNT 

. 0298.  .3A.1P.QE. . 

. CPA... 

. .  .SEK.DSK . 

_ J.SAME  .DISK? . 

029B  21260E 

LX  I 

H.UNADSK 

. .Q29E  .BE . 

. CMP  . . . 

...M . 

. . .  ,;5EK0SK.  =  .UNABSK? . 

029F  C20103 

JNZ 

ALLOC 

;SKIP  IF  NOT 

;  DISKS 

ARE  THE  SAME 

. 02A2..3A.1EQE.. 

. LPA  . . . 

...SEKTBK . 

02A5  21270E 

LXI 

H» UNATRK 

. Q2A8.  .BE . 

. CMP.... 

.  ,.M. 

, . .  .;.SEKIBK.  PSD.  .=.  unatrk  j,sb? 

02A9  C20103 

JNZ 

ALLOC 

;SKIP  IF  NOT 

.  02A.C..3A1FQE  . 

. LPA... 

. .  SFKTRK+i 

02AF  23 

I  NX 

H 

. Q2BP.  M . 

. CKP  . . . 

. .  ,M . 

. . .  .J.SEK.TBK.  MSB.  =  .UNATRK.  MSB?. . 

02B1  C20 103 

JNZ 

ALLOC 

J-SKIP  IF  NOT 

;  TRACKS 

ARE  THE  SAME 

. 02 W.  .2A0.8.QE. . 

. LHLD . . 

. .  .DPBX . 

02B7  11F0FF 

LXI 

D.-DPEHTH 

. 0.2  BA.  .1.9 . 

. DAP. . . . 

...D . 

02BB  CDB308 

CALL 

HLIHL 

. D2BE.  .7.C . 

. MOV. . . . 

. .  -A.H . 

02BF  B5 

ORA 

L 

. 02 CO.  C2C.C.Q2. . 

. JNZ... 

. .  .CHKUNA5 . 

. . .  .j.XLAIE .  TABLE.  PRESENT . 

02C3  3A290E 

LDA 

UNASI 

0?C6  21200E 

IXI 

...B.STOfcQ . 

02C9  C3D602 

JMP 

CHKUNA6 

02CC  3A290E 

CHKUNA5:  LDA 

UNASI 

02CF  CD9508 

CALL 

DADA 

02D2  3A200E 

. PPA..., 

. . . SPKSEC . 

02D5  3C 

INR 

A 

02D6  BE 

. .  CHKUNA.6 ; ,  C.MP . . 

.  .M . 

...  .J.SEKSEC.  =  .UNASI? . 

02D7  21290E 

LXI 

H, UNASI 

02DA  .C20103 . . MS . APLQC . ;SKIP .  IF.  .NOT. 


MATCH,.  .MOVE.  .TO.  .NEXT.  .SECTOR .  FOB .  FUTURE  .REF. 


02DD 

02DE 

31* 

7E 

INR 

MOV 

M 

A,  M 

;UNASI  =  UNASI+1 
;END  OF  TRACK? 

02DF 

E5 

PUSH 

H 

02E0 

F5 

PUSH 

PSW 

02E1 

2A080E 

LHLD 

DPBX 

;GET  NUMBER  OF  SECTORS/TRACK  FROM  DPB 

02E14 

11 FAFF 

LXI 

D, -DPEHTH+DPEDPB 

02E7 

19 

DAD 

D 

02E8 

CDB308 

CALL 

HLIHL 

;GET  DBPX 

02EB 

FI 

POP 

PSW 

02EC 

BE 

CMP 

M 

; FIRST  ENTRY  OF  WHICH  IS  SEC/TRACK 

02ED 

El 

POP 

H 

02EE 

DAFA02 

JC 

NOOVF 

;SKIP  IF  NO  OVERFLOW 

* 

• 

OVERFLOW  TO  NEXT  TRACK 

02F1 

3600 

MVI 

M,0 

; UNASI  =  0 

02F3 

2A270E 

LHLD 

UNATRK 

02F6 

23 

INX 

H 

02F7 

22270E 

SHLD 

UNATRK 

;  UNATRK  s  UNATRK-fl 
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» 


MATCH.  FOUND.,.  .MARK  .AS.  .UNNECESSARY.  READ. 


02FA  AF 

02FB  322B0E 

NOOVF : 

XRA 

STA 

A 

RSFLAG 

;0  TO  ACCUMULATOR 
; RSFLAG  =  0 

02FE  C 3090 3 

JMP 

RWOPER 

;TO  PERFORM  THE  WRITE 

0301  AF 

ALLOC: 

NOT  AN 
XRA 

UNALLOCATED 

A 

RECORD,  REQUIRES  PRE-READ 
;0  TO  ACCUM 

0302  32330C 

. 0305.  3C . 

STA 

INR 

UNACNT 

A 

; UNACNT  =  0 
;  1  TO  ACCUM 

0306  322B0E 

STA 

RSFLAG 

; RSFLAG  =  1 
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;  ENTER 

HERE  TO  PERFORM 

THE  LOGICAL  READ/WRJTE 

.  0309  AF 

RWOPER:  XRA 

A 

;ZERO  TO  ACCUM 

030A  322A0E 

STA 

ERFLAG 

;N0  ERRORS  (YET) 

03'0D  2A6’80e 

LHLD 

DPBX 

;FIND  LOGICAL  SECTORS  PER  PHYSICAL 

0310  4E 

MOV 

C,M 

;GET  DISK  TYPE 

"  03H  23 

INX 

H 

0312  23 

INX 

H 

. 0313’  46’ . 

MOV 

BtM 

;GET  LOGICAL  SECTORS  PER  PHYSICAL 

IF 

H47T  OR  H67T 

MOV 

A.C 

ANI 

DPETYPE 

CPI 

DPEH47 

; CHECK  FOR  H47  FLOPPY 

JZ 

RWOX 

5  IS  H47 

MOV 

A,C 

ANI 

DPETYPF 

CPI 

DPEH67F 

; CHECK  FOR  H67  FLOPPY 

JNZ 

RWO 

;BR  IF  NOT 

RWOX:  LHLD 

SEKTRK 

;WHAT  TRACK  ARE  WE  AFTER? 

MOV 

A,H 

ORA 

L 

;IF  NOT  TRACK  0 

JNZ 

RWO 

;  THEN  USE  THE  VALUE  OF  LSP  IN  DPBX 

MVI 

B,1 

;  ELSE  ON  TRACK  0  IT  IS  1 ! 

ENDIF 

U314  70 

RWO :  MOV 

A,B 

0315  32180E 

STA 

LSP 

0318  3A200E 

n31B‘F5 . 

031C  78 

'OWlF . 

031E  47 

‘03 If  DA2803 
0322  FI 

0323’  B7 . 

0324  IF 

•0325  'cimy 

0328  FI 
0329  32250E ' 


SEKSEC 

p’sw 


; COMPUTE  HOST  SECTOR 

'  -  SAVE'  THE' PHSYICAL  SECTOR ' (TO  DATE) . 

5 GET.  SHIFT  FACTOR  (SHIFT  .L0G2 . SEC . PpR  RpC). 


RW1 

PSW 

SEKHST 


;HOST  SECTOR  TO  SEEK 


032C  2 13 IOC 

0’32F'  7E . 

0330  3601 

0332'  67 . 

0333  CA6303 


ACTIVE  HOST  SECTOR? 
LX I  H , HSTACT 

MOV . A  ,M . 

MVI  M, 1 

ORA . A . 

JZ  FILHST 


jHOST  ACTIVE  FLAG 


; ALWAYS  BECOMES  1 
;WAS  IT  ALREADY? 
;FILL  HOST  IF  NOT 


0336'  3A’1D0ET 
0339  21210E 

033c  ‘  be . 

033D  C25C03 


HOST  BUFFER  ACTIVE,  SAME  AS  SEEK  BUFFER? 

Ida . SEkOsk . 

LX I  H , HSTDSK  ;SAME  DISK? 

CMP . M . jSEKDSk  '=  ‘  HSTbSK? 

JNZ  NOMATCH 


SAME  DISK,  SAME  TRACK? 
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0340  3A1E0E 

. 0343 . 2.1220E. . . . 

LDA 

LXI.. 

SEKTRK 

_ H,.  HSTTRK . 

0346  BE 

. 0347.  .C25C.Q3. . . 

034A  3A1F0E 

. 0340 .23 . 

034E  BE 

. 034F.C25C03... 

t 

• 

CMP 
.JNZ. . . 
LDA 
.MX.. 
CMP 
JIN*.. 

SAME 

M 

. . .  .NOMATCH . 

SEKTRK+1 

....H . 

M 

. .. .  NQMAICH . 

DISK,  SAME  TRACK 

; SEKTRK  LSB  r  HSTTRK  LSB? 

; SEKTRK  MSB  =  HSTTRK  MSB? 

SAME  BUFFER? 

0352  3A250E 

LDA 

SEKHST 

. 9355.R1.24pK... 

LXJ.. 

H.HSTSEC 

; SEKHST  =  HSTSEC? 

0358  BE 

CMP 

M 

. .0359.  .CA0EQ3. . . 

JZ 

. MATCH . 

;§KJP  IF  MATCH 

t 

PROPER  DISK.  BUT  NOT 

CORRECT  SECTOR 

035C  3A320C 

NOMATCH 

:  LDA 

HSTWRT 

;HOST  WRITTEN? 

. Q35F.  .57 . 

ORA 

A 

0360  C4EF03 

CNZ 

WRITEHST 

; CLEAR  HOST  BUFF 

9 

MAY  HAVE  TO  FILL  THE 

HOST  BUFFER 

. Q363..3A.10QE... 

flLHST: 

LDA 

. 5PKP5K . 

0366  322 10E 

STA 

HSTDSK 

0365  2A1E0E 

LHLD 

SEKTRK 

036C  22220E 

SHLD 

HSTTRK 

036F  3A250E 

LDA 

SEKHST 

0372  32240E 

STA 

HSTSEC 

0375  3A2C0E 

LDA 

READOP 

0378  B7 

ORA 

A 

0379  C28303 

JNZ 

FIL1 

; YES  IT  WAS  A  READ 

037C  3A180E 

LDA 

LSP 

037F  3D 

DCR 

A 

0380  CA8AO3 

JZ 

FIL2 

; DON’T  NEED  TO  PREREAD  IF  PHYSICAL=LOGICAL 

0383  3A2B0E 

FIL1 : 

LDA 

RSFLAG 

;NEED  TO  READ? 

0386  B7 

ORA 

A 

0387  C4DF03 

CNZ 

READHST 

;YES,  IF  i 

038A  AF 

FIL2: 

XRA 

A 

;0  TO  ACCUM 

038B  3232OC 

STA 

HSTWRT 

;N0  PENDING  WRITE 

;  COPY  DATA  TO  OR  FROM  BUFFER 

038E  3A180E  MATCH:  LDA  LSP 

0391  3D . DCR . A' 

0392  21200E  LXI  H.SEKSEC . 

6*395’  A6 . ANA . M  ’’ 

0396  210000  LXI  H,0 

0399  CAA403 . JZ . M2 . 

039C  118000  LXI  D, 128 

039F  19 . Ml’: . DAD . D . 

03A0  3D  DCR  A 

03 A i  C29F03 . JNZ . Ml . 

;  HL  HAS  RELATIVE  HOST  BUFFER  ADDRESS 


03A4  11340C 
03A7  19 

M2: 

LXI 

DAD 

D,HSTBUF 

D 

;HL  =  HOST  ADDRESS 

03A8  EB 

XCHG 

;tfOW  IN 

03A9  2A2E0E 

LHLD 

DM  A  ADR 

;GET/PUT  CP/M  DATA 

(((((<(((. 


) 
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03AC  0E80 

.  03AE  3A2COE 

MVI 

LDA 

Ct  128 

. .  .REAP.QP . 

; LENGTH  OF  MOVE 

. ; WHICH  .WAY.? . 

03B1  B7 

ORA 

A 

03B2  C2BB03 

JNZ 

RWMOVE 

:SKIP  IF  READ 

WRITE 

OPERATION.  MARK  AND  SWITCH  DIRECTION 

03B5  3E01 

MVI 

A,  1 

03B7  32320C 

STA 

HSTWRT 

; HSTWRT  =  1 

03BA  EB 

XCHG 

; SOURCE/DEST  SWAP 

1 

C  INITIALLY  128,  DE 

IS  SOURCE,  HL  IS  DEST 

03BB  CDB808 

RWMOVE : 

CALL 

MOVEITX 

;MOVE  DATA 

♦ 

• 

.  .  r».  , 

DATA  HAS  BEEN  MOVED 

TO/FROM  HOST  BUFFER 

03BE  3A2D0E 

LDA 

WRTYPE 

IWRITE  TYPE 

03C 1  FE01 

CPI 

WRDIR 

‘JO  DIRECTORY? 

03C3  3A2A0E 

LDA 

ERFLAG 

JIN  CASE  OF  ERRORS 

03C6  C2D703 

JNZ 

RW9 

;  BR  IF  NOT  DIRECTORY  WRITE 

1 

f 

CLEAR 

HOST  BUFFER  FOR  DIRECTORY  WRITE 

O3C 9  B7 

ORA 

A 

;ERRORS? 

03C A  C2D903 

JNZ 

RW9A 

;  BR  IF  ERROR 

03CD  AF 

XRA 

A 

;0  TO  ACCUM 

03CE  32320C 

STA 

HSTWRT 

; BUFFER  WRITTEN 

03D1  CDEF03 

CALL 

WRITEHST 

03D4  3A2AOE 

LDA 

ERFLAG 

03D7  A7 

RW9: 

ANA 

A 

; CHECK  FOR  ERROR 

03D8  C8 

RZ 

;  RET  IF  NONE 

03D9  F5 

RW9A: 

PUSH 

PSW 

;SAVE  ERROR 

03DA  CD0E04 

CALL 

FLUSH 1 

..JRE-INIT  HOST  BUFFER  FLAGS 

03DD  FI 

POP 

PSW 

; RESTORE  ERROR 

03DE  C9 

RET 
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WRITEHST.  PERFORMS.  THE .  PHYSICAL .  WRITE.  .TO . 

THE  HOST  DISK,  READHST  READS  THE  PHYSICAL 

DISK,. . . . 

READHST.  r.  .PERFORM.  .PHYSICAL.  .SECTOR.  READ . 

HSTDSK  =  HOST  DISK  #,  HSTTRK  =  HOST  TRACK  #, 

. HST.SEC.  .=.  .HOST .  SECT.  #.„  .READ .  VHSTSIZ’! .  BYTES. . . . 

INTO  HSTBUF  AND  RETURN  ERROR  FLAG  IN  ERFLAG. 


READHST: 


03DF  AF 

03E0  32170E 

XRA 

STA 

A 

.  R.WOP . 

; INDICATE  READ  OPERATION 

03E3  3A210E 

03E6  CD4D04 

LDA 

CALL 

. .  HSTPSK . 

SHD 

. ; get. HOST.  P.XSK . 

♦SET  HOST  DEVICE  POINTER 

. ;  .  .ANP.  .PERFORM.  .LOGICAL.  TO.  PHYSICAL .  MAPPING . 

03E9  110300 

LXI 

D.DDRD 

03EC  C3F001 

JMP 

bskbis 

WRITEHST  -  WRITE.  PHYSICAL.  SECTOR 

HSTDSK  =  HOST  DISK  #,  HSTTRK  =  HOST  TRACK  #, 

. HSTSEC  =  HOST  SECT-#.  WRITE  "HSTSIZ”  BYTES 

FROM  HSTBUF  AND  RETURN  ERROR  FLAG  IN  ERFLAG’ 
RETURN  ERFLAG  NON-ZERO  IF  ERROR 


. tffi  : . 

03EF  3E0 1 . MV  I . A,  1 . ;  INDICATE .  WRITE  OPERATION 


03F1  32170E 

STA 

RWOP 

03F4  3A210E 

03F7  CD4D04 

LDA 

CALL 

HSTDSK 

SHD 

JGET  HSTDPB,  ALSO  DO  PHYSICAL  ->  LOGICAL  MAP 

03FA  110600 

LXI 

D.DDWR 

03FD  C3F001 

JMP 

DSKDIS 

1 

FLUSH 

-  FLUSHES  HOST  BUFFER. 

• 

t 

• 

FLUSH 1 

-  REINITIALIZES 

HOST  FLAGS 

0400  3A310C 

FLUSH: 

LDA 

HSTACT 

;IS  HOST  BUFFERING  ACTIVE 

0403  A7 

ANA 

A 

0404  CA0E04 

JZ 

FLUSH 1 

;BR  IF  NOT 

0407  3A320C 

LDA 

HSTWRT 

; IS  HOST  BUFFER  WAITING  TO  BE  WRITTEN 

. 040A'  A7  ‘ " 

ANA 

A 

040B  C4EF03 

CNZ 

WRITEHST 

;YES  -  WRITE  IT 

040E  AF 

FLUSH 1: 

XRA 

A 

. 04or  323 1 Pc  ' ' 

STA 

HSTACT 

Reactivate:  host  buffer 

0412  32320C 

STA 

HSTWRT 

;no  pending  write 

((((((<(( 


) 
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0415  32330C 

STA 

UNACNT 

;NO  UNALLOCATED  SECTORS  IN 

BLOCK 

0418  C9 

RET 

;  EXTENDED  ERROR  MESSAGE 

HANDLER. 

;  ENTRY:  (ERRTYP)  =  ERROR  CODE 

:  (HL)  =  AD DR  OF  DEVICE  TYPE  MSG . 

;  EXIT:  NONE 

. 

. 

04 1C  E602 

prterr:  lda 

ANI 

MODE 

M0DEB1 

; CHECK  IF  EXTENDED  ERROR  MESSAGES 
;  REQUESTED 

w  RZ  ♦  RET  IF  NOT  . 

0420  21000C 

PUSH 

LXI 

H 

H.CRLF 

;SAVE  DEVICE  TYPE  MSG 

0423  CD9D0B 
0426  El 

CALL 

POP 

PMSG 

H 

; RESTORE  DEVICE  TYPE  MSG 

0427  CD9D0B 

CALL 

PMSG 

042A  3A170E 
042D  21EB0B 

LDA 

LXI 

RWOP 

H.RDMSG 

; PRINT  i/ti  TYPE  fcSG 
: ASSUME  READ 

. 

0430  A7 

0431  CA3704 

ANA 

JZ 

A 

PRTERR 1 

0434  21F10B 

LXI 

PRTERR 1: 

H.WRMSG 

; WAS  WRITE 

1  OUyiJUB  CALL  PMSG  . 

043A  21F80B 

043D  CD9D0B 

. LX't 

CALL 

'H'.ERRMSG . 

PMSG 

0440  3A1A0E 

LDA 

ERRTYP 

; PRINT  ERROR  TYPE 

0443  CDAAOB 

CALL 

HOUT 

0446  21CJ00C 

0449  CD9D0B 

Lxi 

CALL 

H.CRLF 

PMSG 

044C  C9 

RET 
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• 

♦ 

ENTRY 

A  HOST  DISK 

■ 

EXIT 

HSTDPB  POINTS  TO  HOST  DISK  PARAMETERS 

* 

9 

• 

(HL)  =  (HSTDPB) 

SHD: . . 

IF 

H17T  OR  H37T 

044D  32CC04 

STA 

SHDA 

0450  32CD04 

STA 

..SNPIF.. 

SHDB 

0453  CDAB08 

CALL 

GETDPEX 

;GET  ADDR  OF  DPE'S  HEATH  EXTENSIONS 

0456  2£0AQE 

. .  SHLP. . . 

. .  RS.TPPB. . 

;  SAVE  IT. 

IF 

HI 7T  OR  H37T 

045?  7E 

MOV.. 

A,M 

; CHECK  DRIVE  TYPE 

045 A  E6E0 

ANI 

DPETYPE 

045C  FE40 

CPI 

DPEH17 

045E  CA6604 

JZ 

SHD1 

0461  FE60 

CPI 

DP5H37 

0463  C2C404 

JNZ 

SHD6 

0466  EB 

SHD1 : 

XCHG 

;(DE)  =  ADDR  OF  HEATH  EXTENSIONS 

0467  210600 

LXI . . 

.  H , DPEFLG2-DPEHTH 

046A  19 

DAD 

D 

046B  7E 

MOV 

A,M 

046C  E602 

ANI 

DPEIMG 

; CHECK  IF  IMAGINARY  DRIVE 

046E  CA7D04 

JZ 

SHD2 

;  BR  IF  NOT 

0471  210700 

LXI 

H , DPELUN-DPEHTH 

;GET  REAL  DRIVE  LOGICAL  UNIT  # 

0474  19 

DAD 

b 

0475  7E 

MOV 

AtM 

0476  32CD04 

STA 

SHDB 

; SAVE  IT 

0479  CDAB08 

CALL 

GETDPEX 

;GET  ADDR  OF  DPE’S  HEATH  EXTENSIONS 

047C  EB 

XCHG 

; (DE)  =  ADDR  OF  HEATH  EXTENSIONS 

047D  210700 

SHD2: 

LXI 

Ht DPELUN-DPEHTH 

04$0  19 

DAD 

D 

0481  3ACC04 

LDA 

SHDA 

0484  BE 

CMP 

M 

;REQ  UNIT  =  CURRENTLY  MOUNTED  UNIT 

0485  CAC104 

JZ 

SHD5 

;  BR  IF  YES 

0488  77 

MOV 

M.A 

; UPDATE  MOUNTED  UNIT  SLOT 

0489  CDC504 

CALL 

SHD9 

;GET  LOGICAL  DISK  NAME 

048C  C641 

ADI 

'A* 

048E  32D904 

STA 

MNMSGA 

0491  3ACD04 

LDA 

SHDB 

;GET  PHYSICAL  DISK  NAME 

0494  CDC504 

CALL 

SHD9 

0497  C()41 

ADI 

'A' 

0499  32E404 

STA 

MNMSGB 

049c  IIOCOO 

LXI 

D.DDMNT 

; MOUNT  DISK  DRIVE 

( 


( 


))))))))) 
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049F  2A0A0E 
.  04A2.  CPfOOl 

LHLD 

..CALL.. 

HSTDPB 

. .  .0SKPI5 . 

04A5  21CE04 
04A8  CD9D0B 

LXI 

CALL 

..H.t.MNMSG . 

PMSG 

. ;  prompt.  USER  TO.  CHANGE .  DISK . 

04AB  CDF 3 08 

SHD3: 

CALL 

CON  IN 

;GET  A  CHARACTER  FROM  THE  CONSOLE 

04AE  FEOD 

04B0  CABB04 

CPI 

JZ 

CR 

SHD4 

;IF  CHAR  ==  CR 
;  THEN  GO  AHEAD 

04B3  OE07 

MVI 

C?BELL 

;  ELSE  RING  BELL 

04B5  CD0109 
04B8  C3AB04 

CALL 

JMP 

CONOUT 

SHD3 

. ? . . .  .ANP.  .WAIT  FOR.  ANOTHER  .CHARACTER . 

04BB  21000C 

SHD4: 

LXI 

H.CRLF 

04BE  CD9D0B 

CALL 

PMSG 

04C1  2AOAOE 

SHD5: 

LHLD 

HSTDPB 

ENDIF 


04C4  C9 

SHD6: 

RET 

IF 

H17T  OR  H37T 

;  GET 

* 

LOGICAL 

UNIT  # 

ENTRY:  (A)  =  LOGICAL  AND  MAPPED  UNIT  #’S 


BIT  7-4  =  LOGICAL  UNIT  # 
‘ BIT ‘ 3-0  = ' MAPPED  UNIT ' #  ‘ 
EXIT:  (A)  =  LOGICAL  UNIT  # 

USES:  A,  F 


04C5  IF 

04C6  IF 

SHD9: 

RAR 

RAR 

04c? 'if 

RAR 

04C8  IF 

RAR 

04C9  E6oE 

ANI 

OFH 

04CB  C9 

RET 

04CC 

SHDA 

DS 

1  ; LOGICAL/MAPPED  DRIVE 

#  OF  REQ 

04  CD 

SHDB 

DS 

1  ; LOGICAL/MAPPED  DRIVE 

9  OF  REAL 

04CE  0DOA5O5554MNMSG 

DB 

CR , LF , *  PUT  DISK  ’ 

04D9  2E20494E20MNMSGA 

DB 

*.  IN  DRIVE  » 

04E4  2E3A204i4EMNMSGB 

DB 

AND  PRESS  RETURN \0 

ENDIF 
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..IF . H17T. . 

;  H ] 7.  DEVICE.  DRIVE . 06  JUL  .1.98,1. 


H1.7DVP.:, 


04F8  C33606 
04FB  C307O5 

JMP 

IMP 

RDYH17 

RD17M 

; SELECT  ENTRY  POINT 

. ;MW. . 

04FE  C32005 

JMP 

WR17M 

5 WRITE 

0501  C32906 

JMP 

RE3H17 

. .reset . 

0504  C32006 

JMP 

MMTH17 

; MOUNT 

PAGE 
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. 95.07. 3A240E . . 

. .  .8P.1.7M;. 

.LDA. . . 

...HSTSEC . 

050A  32150E 

STA 

SECTOR 

050D  3A220E 
.  0510  32140? 

LDA 
.STA . . 

HSTTRK 
.  TRACK 

;GET  TRACK  (#  IS  ALWAYS  <  256) 

.  0513  CD4505 

.CALL 

RD17 

0516  3E00 

.  0518  D21C05 

MVI 

Me... 

A.OOH 

. .  .5PH.1 . 

. . . . CARRY  .SEJ  .INDICATES.  E.RROP. . 

051B  3D 

. 05IC  322A0E 

...Rpm;.. 

DCR 

STA... 

A 

. .  .ERFLAG 

;  IF  ERROR,  MAKE  ERFLAG  =  OFFH 

051F  C9 

RET 

0520  3A240E 
.  0523  32150E 

WR17M: 

LDA 
.STA . . 

HSTSEC 

SECTOR 

JGET  SECTOR  NUMBER  . 

. P526  3A220E 

LDA 

.  HSTTRK 

. . . .  ;G.5T.  TRACK  .(#.  .15.  ALWAYS  <  256) 

0529  32140E 

STA 

TRACK 

052C  CD7A05 
052F  3E00 

CALL 

MVI 

WR17 

A.OOH 

0531  D23505 
0534  3D 

JNC 
PCR. . . 

WRH1 

. .  A . 

; CARRY  SET  ON  ERROR  . 

.MAKE.  .ERFLAG.  =  .OFF.H  .ON  ERROR 

0535  3 22 AO E 
0538  C9 

WRH1 : 

STA 

RET 

ERFLAG 
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•XOK  -  EXIT  FROM  DISK  OPERATION  WITHOUT  ERROR 
; .  XIT. .EXIT .  FLAGGING .  ERROR.  IN .  CARRY . 


0539  AF 

n53ft  F5 

XOK: 

XIT: 

XRA 

PUSH 

A 

PSW 

; CLEAR  CARRY 

053B  F3 

. Q53.Q.210F.Q6. 

05 3F  221808 
flea?  FI 

DI 

m .... 

SHLD 

POP 

,.  H.PJ&AYS. . 

DLYMO 

psy 

;  SET.  DISK.  .MOTOR .  AND .  SELECT.  .TIMERS . 

0543  FB 

0544  CQ 

El 

RFT 

t 

•  RD17 

-  &Fftn  ft  SFI.FCTFD  SECTOR 

0545  CDAF06 

t 

RD17: 

CALL 

SDP 

{SET  PARAMETERS  FOR  THIS  OPERATION 

0548  C DC BO 6 

RD171: 

CALL 

SDT 

{SEEK  THE  DESIRED  TRACK 

054B  CD2C07 

. P54E.PA7.1Q5. 

0551  0600 

Q553  21340C 
0556  CDB607 
0559  3E20 

CALL 

. .  IQ . 

MVI 

LPS 

;FIND  THE  PROPER  SECTOR 

.  ..rP.lt  E . 

B,0 

;READ  256  BYTES 

♦POTHTFR  TO  RIIFFFR  . . 

. .  La.I.  . . . 
CALL 
MVI 

. .  ,U»  JwlPW . 

WSC 

A . D$E$MDS 

;WAIT  FOR  SYNC 

{MISSING.  .DATA.  .SYNC  ERROR . . . 

055B  DA7105 

JC 

RD17E 

{MISSING  SYNC  BYTE 

055E  CDA807 
0551  77 

RD172: 

CALL 

MOV 

RDB 

M.  A 

{READ  A  BYTE  FROM  THE  DISK 

;PGT  IT  IN  .MEMORY . 

0562  23 

INX 

H 

{INCREMENT  POINTER 

0563  05 

0564  C25E05 

DCR 

JNZ 

B 

RD172 

{COUNT  BYTE  AS  READ 

fl5fi7  UP  MOV  B.D  . 

0568  CDA807 
056B  B8 

CALL 

CMP 

RDB 

B 

{CHECK  CHECKSUM 

056c  CA3905 
056F  3E08 

JZ 

MVI 

XOK 

A.D$E$CHK 

{EVERYTHING  IS  OKAY 

0571  CDC805 

RD17E:  CALL 

H17E 

0574  D24805 
0577  C33A05 

ike 

JMP 

RD171 

XIT 

{TRY  AGAIN 

((((((((((( 
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;  WR17 

-  WRITE 

A  SECTOR 

. Q57A  .CPAFQ6. . . 

..WR17;.. 

..CAU,... 

.  .SPP . 

;SET  DISK  PARAMETERS 

. Q57ft.PB.7F . 

..W.R17.U. 

.m . 

,  DP  DC 

;SEE  IF  WRITE  PROTECTED 

057F  E604 

ANI 

DFWP 

. Q58.1.  .3E.4.Q . 

..MVI.... 

.  .A«P.$E$W.RP .... 

. POSSIBLE  .WP7TE  PROTECT  ERROR 

0583  C2BF05 

JNZ 

WR17E 

;YES,  IT  IS  A  WRITE  PROTECT  ERROR 

0586  CDCB06 

CALL 

SDT 

;GET  CORRECT  TRACK 

0589  CD2C07 

CALL 

LPS 

;FIND  THE  PROPER  SECTOR 

. P58.C.  .PABFQ5. . . 

..^P . 

..WR.1.75 . 

; COULDN'T  FIND  IT 

. P58F.  0$oq  . 

MVI 

.  B,0 . 

;256  BYTES/SECTOR 

0591  21340C 

LXI 

H,HSTBUF 

; POINTER  TO  SOURCE  OF  DATA 

0594  3E14 

MVI 

A.WRITA 

. .0.596  .3P . 

WR172: 

DCR 

A 

0597  C29605 

JNZ 

WR172 

059A  0E0A 

MVI 

C.WRITB 

. .Q59 C.  .3E.10 . 

..MVI.... 

.  A,W.F{ITC. . 

059E  CDD707 

CALL 

WSP 

; WRITE  THE  SYNC  PATTERN 

05A1  7E 

WR173: 

MOV 

A,M 

05A2  CDEC07 

CALL 

WNB 

; WRITE  THIS  DATA  BYTE 

05A5  23 

I  NX 

H 

05A6  05 

DCR 

B 

05A7  C2A105 

JNZ 

WR173 

;LOOP  TO  WRITE  ALL  256  BYTES 

05AA  7A 

MOV 

A*D 

; WRITE  CHECKSUM 

.  05AB  CDEC07 

.  CALL 

WNB 

05AE  CDEC07 

CALL 

WNB 

CONTINUE  TUNNEL  ERASE 

05B1  CDEC07 

CALL 

WNB 

;FOR  3  CHARACTER  TIMES 

05B4  CDEC07 

CALL 

WNB 

.  05B7  3AOFOO 

LDA 

DEVCTL 

;OFF  WRITE  GATE 

05BA  D37F 

OUT 

DPDC 

.  05BC  C33905 

JMP 

XOK 

05BF  CDC805 

WR17E: 

CALL 

H17E 

; CALL  THE  H17  ERROR  HANDLER 

05C2  D27D05 

JNC 

WR171 

; TRY  AGAIN 

05C5  C33A05 

JMP 

XIT 

; RETURN  FLAGGING  ERROR  IN  CARRY 
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.H.1.7.E  ■  !-■  HI 7.  ERRO.R  .HANDLER. . 

;  ENTRY  A  -  ERROR  TYPE 

; . EXIT . C . .SET.  IE .  RETBIES .  EXHAUSTED. 


. .Q5C8.  .EB . 

05C9  321A0E 

.  .H.1.7E: — EX - 

STA 

ERRTYP 

;SAVE  THE  ERROR  TYPE 

05CC  E6C0 

AN  I 

D$E$UNR+D$E$WRP 

;IS  IT  UNIT  NOT  READ  OR 
;  WRITE  PROTECT  VIOLATION 

05CE  C21406 

JNZ 

H17E4 

;IF  SO,  THEN  AUTOMATIC  HARD  ERROR 

05D1  2A4900 
05D4  23 

LHLD 

JNX 

SECNT17 

H  . 

; BUMP  THE  SOFT  ERROR  COUNT 

05D5  224900 

SHLD 

SECNT17 

05D8  21190E 
05DB  35 

LXI 

DCR 

H,ERRCNT 

M 

;GET  A  POINTER  TO  THE  RETRY  COUNTER 

:  decrement  the  retry  counter 

05DC  CA1406 

JZ 

H17E4 

; RETRIES  EXHAUSTED,  FLAG  HARD  ERROR 

BASED  ON  ERROR  TYPE  AND  RETRY  NUMBER 

SELECT . FROM . THE .FOLLOWING.  RETRY  ACTIONS . 

SEEK  TRACK  0  IF  BAD  TRACK  ERROR  OR  RETRY  5 
JUST  TRY  AGAIN  IF  RETRY  ODD 

. MOVE  IN  THEN  OUT  IF  RETRY  &  2  =  6 

MOVE  OUT  THEN  IN  IF  RETRY  A  2  =  1 


05DF  3A1A0E 

LDA 

ERRTYP 

05E2  FE01 

05E4  CA0F06 

CPI 

JZ 

D$E$TRK 

H17E2 

;WAS  IT  A  BAD  TRACK  ERROR 
; YES,  GO  DO  A  SEEK  TRACK  ZERO 

05E7  7E 

MOV 

A,M 

1 FETCH  RETRY  COUNT 

05E8  FE05 

05EA  CA0F06 

CPI 

JZ 

5 

H17E2 

;IF  ==  5 

;  THEN  SEEK  TRACK  ZERO 

05ED  IF 

RAR 

^IF  ODD,  THEN  TRY  AGAIN  IN  PLACE 

05EE  3F 

05EF  DO 

CMC 

RNC 

; COMPLEMENT  CARRY 
; RETURN  WITH  CARRY  CLEAR 

05FO  2A1B0E 

LHLD 

TRKPT 

♦GET  POINTER  TO  CURRENT  TRACK 

05F3  IF 

RAR 

; IS  B1  OF  ERRCNT  =  1? 

05F4  7E 

05F5  DA0406 

MOV 

JC 

A,M 

H17E1 

;GET  CURRENT  TRACK 
;YES,  SO  MOVE  OUT  THEN  IN 

05F8  FE27 

CPI 

39 

; IF  IT  IS  ALREADY  AT  THE  MAXIMUM  TRACK 

05FA  CA1206 

JZ 

H17E3 

;  THEN  DON’T  DO  ANYTHING 

05FD  34 

05FE  CDFD06 

INR 

CALL 

M 

MAI 

; INCREMENT  CURRENT  TRACK 
;  MOVE  ARM  IN  ONE  TRACK 

0601  C 3 1206 

JMP 

H17E3 

0604  B7 

0605  CA1206 

H17E1 :  ORA 

JZ 

A 

H17E3 

•IF  ±T  IS  ALREADY  AT  MINIMUM  TRACK 
;  THEN  DON’T  DO  ANYTHING 

0608  35 

DCR 

M 

; DECREMENT  CURRENT  TRACK 

(  (  ((((((((( 


)  ) 
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) 

0609  CD0207 

CALL 

MAO 

;  MOVE  ARM  OUT  ONE  TRACK 

060C  C31206 

JMP 

.....H17E3. . 

060F  CDEE06 

H17E2: 

CALL 

STZ 

0612  AF 

H17E3: 

XRA 

A 

; CLEAR  CARRY 

0613  C’9 

RET 

t 

HARD 

ERROR  HAS  OCCURRED 

(OPTIONALLY)  PRINT 

ERROR.  .MESSAGE . 

♦ 

RETURN  WITH  CARRY  SET 

0614  211C06 

H17E4: 

LXI 

H.H17MSG 

0617  CD1904 

CALL 

. . . . PR TERR . 

. ;  PRINT.  .SOT.NEP.  ERROR  .MESSAGE. . 

. 

061 A  37 

STC 

. ;  m.m.  .flagging  .hard  .  error,  in  .  carby . 

06 IB  C9 

RET 

06'  1C  46313700 

H17MSG 

DB 

*H1 7’ ,6 
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;  MNTH17  -- 

MOUNT 

.0620. 2A0A0E . . 
0623  110400 
0626.  .19.  .. 

. .  MNTH1.7 : .  LHLP. 

LXI 

DAD 

. . . .  HSTDPB. . 

D , DPETRK-DPEHTH 
D . 

;SET  TRACK  POINTER  TO  UNKNOWN 

0627  3680 

MVI 

M.DPEUNK 

;+  JMP 

RESH17 

;RESET  DRIVE 

;  RESH17  — 

.  .  ... 

ABORT  OPERATION/ RESET  H17 

0629  AF 

RESH17:  XRA 

A 

062A  D37F 

OUT 

DPDC 

062C  320F00 

STA 

DEVCTL 

062F  210000 

LXI 

H,  0 

0632  221808 

SHLD 

DLYMO 

0635  C9 

RET 

; ' '  RDYH17  *  CHECK'  IF '  UNl'f  ‘  READY . 

j  1.  DRIVE  IS  AVAILABLE 

; . 2.  CORRECT'  TYPE'  OF' MEDIA  HAS  BEEN  INSERTED 


•'  ENTRY:  NONE . 

;  EXIT:  PSW/C  =  0  IF  READY 

; . =  T  IF'  NOT  'READY . 

;  USES:  ALL . 

;  THE  NUMBER  OF  HOLE  TRANSITIONS  IS  COUNTED  IN  THE  TIME  IT  TAKES 


;  * '  FOR  '1  'REVOLUTION  'C260MS5 '  IF  THE'  'DISK  INSERTED  IS  HARD  SECTORED,' 
;  THEN  11  HOLES  PLUS/MINUS  1  (22+-2  TRANSITIONS)  SHOULD  BE  COUNTED, 


;  10  SECTOR 

* 

HOLES  AND  1  iNDEX 

HOLE. 

RDYH17: 

0636  CD6E06 

CALL 

0NH17 

;TURN  ON  MOTOR  AND  SELECT  DRIVE 

0639  211A08 

LXI 

RDYH17A: 

H.DLYW 

;wait  until  drive  is  up  to  speed 

O63C  7E 

06 3D  A7 

MOV 

ANA 

A,M 

A 

063E  C23C06 

JNZ 

RDYH17A 

.  6&in  210BO0 

0644  3E64 

. LXI  ' 

MVI 

H,T1CCNT 

A,  100 

'•GET 'TIME 'VALUE .  . 

((.(((((((( 
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0646  86 

. 064.7.  .47 . 

ADD 

. M0V . . . 

M 

. . .  B.,A . 

. ;(B1.=  .  TIME.  VALUE . 

. 064.8.  .QEP.Q . 

. m... 

...C,.0 . 

.  ,;(C),  .=  HOLE  COUNTER 

064A  51 

MOV 

D,C 

;(D>  =  I NIT  HOLE  STATUS  TO  NO  HOLE  . 

. 

. 064B.PB7F . 

RDYH17B: 

. IN.... 

DPDq 

.  ;GET  HOLE  STATUS 

064D  E601 

. 06.4F.BA . 

ANI 

. .C.MP. . . 

DFHD 

. .  D. . 

. ; HAS. IT.  .CHANGED . 

0650  CA5506 

JZ 

RDYH17C 

;  BR  IF  NOT  . 

0653  57 

. 065.4. 0.C. . 

MOV 

. INR... 

D,  A 

. .  C  . . . . 

;SAVE  NEW  STATUS  . 

_ 5CP.UNT  TRANSJTJON 

. .  RDYH.1.7C; . 

0655  78 

. 065.6.  . 

MOV 

. CMP. . . 

A  ,B 

. .  M . 

; CHECK  IF  TIME  UP 

0657  C24B06 
. 065A.79. . 

JNZ 

. MQY. . . 

RDYH17B 

. ,  A, .0 . 

,.;TIME  UP  —  CHECK  #  OF  HOLES 

065B  FE14 

. Q65E.PA.66Q6... 

CPI 

JC 

10*2 

RDYH17D 

. ; IF  <  10  THEN  ERROR 

0660  FE19 

. Q662  3F . 

CPI 

. CMC... 

12*2+1 

0663  D26B06 

JNC 

RDYH17E 

. 06.66. 3.E6Q . 

RDYH17D: 

. m. . . . 

AkD$E$UNR 

OTHERWISE  SAY  UNIT  NOT  READY 

0668  CDC805 

CALL 

H17E 

; REPORT  ERROR  . 

. 066B  C33A05 

RDYH17E: 

. 4MP. . . . 

XIT 

jRETURN  VIA  ’XIT' 
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•  0NH17  —  TURNS  ON  MOTOR,  SELECT  DRIVE,  AND  SET  SETTLE  DELAY  COUNTERS. 

j. ...... . . . . . . . . . . . . 


Q66E  FB 

ONH17:  El 

;MAKE  CERTAIN  INTERRUPTS  ARE  ENABLED 

. mt.zwm... 

LXI 

.H,0 . 

0672  221808 

SHLD 

DLYMO 

0675  2A0A0E 

LHLD 

HSTDPB 

;GET  DEVICE  SELECT  CODE 

0678  23 

INX 

H 

0679  7E 

MOV 

A,M 

067A  F610 

ORI 

DFMO 

;TURN  ON  THE  MOTOR 

067C  D37F 

OUT 

DPDC 

067E  47 

MOV 

B,  A 

067F  210F00 

LXI 

H, DEVCTL 

;WHAT  WAS  ITS  STATE? 

0682  7E 

MOV 

A,M 

0683  E610 

ANI 

DFMO 

;WAS  THE  MOTOR  ON? 

0685  C29F06 

JNZ 

0NH17A 

; YES ,  DON’T  HAVE  TO  WAIT  FOR  IT 

•  0688  E5 

PUSH 

H 

0689  2A0A0E 

LHLD 

HSTDPB 

;FIND  OUT  HOW  FAST  IT  COMES  UP 

068C  110500 

LXI 

D , DPESEK-DPEHTH 

068F  19 

DAD 

D 

0690  7E 

MOV 

A,M 

0691  El 

POP 

H 

6692  17 

RAL 

IF 

DPEMO- 10000000B 

t:  DPEMO  NE  10000000B 

END  IF 

6693  3EFA 

MVI 

A,  SPD 

;UP  TO  SPEED  IN  SPD  *  4  MS 

0695  D2AA06 

JNC 

0NH17B 

0698  IF 

RAR 

;NEW  DRIVES  UP  IN  1/4  TIME 

0699  IF 

RAR 

669A  E63F 

ANI 

03FH 

069C  C3AA06 

JMP 

0NH17B 

069F  7E 

ONH17A:  MOV 

A,M 

06A0  E60E 

ANI 

U0+U1+U2 

; CHECK  THE  AVAILABLE  UNITS 

06A2  AO 

ANA 

B 

;WAS  THIS  UNIT  SELECTED? 

06 A3  3E00 

MVI 

A,  0 

06A5  C2AA06 

JNZ 

0NH17B 

;THIS  HEAD  WAS  ALREADY  LOADED 

0'6A  8  3E  i  4 

MVI 

A,HLTG 

;MUST  WAIT  FOR  HEAD  LOAD  TIMING 

06AA  321A08 

0NH17B:  STA 

DLYW 

06AD  70 

MOV 

M.B 

;MOV  A,B 

;STA  DEVCTL 

06AE  C9  RET 
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;  SDP  -  SET  DEVICE  PARAMETERS 

: . SET  RETRY  COUNT,  MAKE  SURE  MOTOR  IS  ON  AND  DRIVE  SELECTED 


SDP: 


06AF  CD6E06 

CALL 

0NH17 

ITURN  ON  MOTOR  AND  SELECT  DRIVE 

06B2  3E0A 

MVI 

A, RETRIES 

ISET  TRY  COUNTER 

06B4  32190E 

STA 

ERRCNT 

06B7  2A0A0E 
06BA  110400 

LHLD 

LXI 

HSTDPB 

D , DPETRK-DPEHTH 

;GET  THE  CURRENT  TRACK  FOR  THIS  DISK 
; OFFSET  TO  TRACK  IN  DISK  TABLES 

06BD  19 

06BE  221B0E 

DAD 

SHLD 

D 

TRKPT 

;GET  ADDRESS  OF  TRACK  FOR  THIS  DRIVE 

06C1  7E 

06C2  17 

MOV 

RAL 

A,M 

;IF  MSB  IS  0 

06C3  DO 

;CALL 

RNC 

STZ 

;  THEN  TRACK  IS  POINTED  TO  BY  TRKPT 
;  ELSE  HEAD  POSITION  IS  UNKNOWN  AND 

06C4  C3EE06 

;  RET 

JMP 

STZ 

;  IS  ZEROED 
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• 

-  SEEK.  .DESIRED.  TRACK . 

SEEK  TO  TRACK  UPDATING  *TRKPT 

06C7  34 

06C8  CDFD06 

SDTO: 

INR 

CALL 

M 

MAI 

06CB  2A1B0E 

SDT: 

LHLD 

TRKPT 

06CE  3A140E 
06D1  BE 

LDA 

CMP 

TRACK 

M 

06D2  CADF06 
06D5  F2C706 

JZ 

JP 

SDT1 

SDTO 

; AT  DESIRED  TRACK 
;  MUST  MOVE  ARM  IN 

06D8  35 

DCR 

M 

;  ELSE  MUST  MOVE  ARM  OUT 

06D9  CD0207 

CALL 

KAO 

06DC  C3CB06 

JMP  • 

SDT 

06DF  3A1A08 

SDT1 : 

LDA 

DLYW 

;MAKE  CERTAIN  TO  DELAY  FOR  HEAD  SETTLE  TIME 

06E2  FE06 

06E4  DO 

CPI 

RNC 

HST 

;IS  WAIT  ALREADY  >  HEAD  SETTLE 
;IF  SO,  RETURN 

06E5  3E06 

06E7  321A08 

MVI 

STA 

A,HST 

DLYW 

;  ELSE  BE  SURE  TO  DELAY  FOR  HEAD  SETTLE 

06EA  C9 

RET 

;  STZ 

-  SEEK  TRACK  0 

• 

CALLED 

DURING 

ERROR 

RECOVERY  AND  TO  INITIALLY  POSITION  HEADS 

.  06EB  CD0207 

06EE  DB7F 

'  STZ'O: ' ' 
STZ: 

•  CALL . HAo . 

IN  DP  DC 

j'mOVE  the  arm  out 

; CHECK  THE  TRACK  ZERO  SENSOR 

. 06F0  E60‘2 . 

06F2  CAEB06 

ANI  DFTO 

JZ  STZO  • 

;IF  NOT  SET,  THEN  MOVE  OUT  ANOTHER  TRACK 

06F5  2A1B0E 
O6F8  3600 

LHLD  TRKPT 

MVI  M,0 

;ZERO  TRACK  INDICATOR  FOR  THIS  DRIVE 

. 06EA  C3P'F'C6'  • ' 

JMP  SDT1 

;HEAD  SETTLE  DELAY  IN  CASE  GOitNG  TO  6 
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:..MAI,  -  .MOVE.  ARM.  IX . 
;  MAO  -  MOVE  ARM  OUT 


. 06FD  3E20 

MAI: 

MVI 

A,DFDI 

.  JSET  DIRECTION 

06FF  C30307 

JMP 

MA01 

.  0702  AF 

MAO: 

XRA 

A 

;SET  DIRECTION 

0703  E5 

MA01: 

PUSH 

H 

.  0704  £7 

..M.QV.... 

. .  H.  ,.A 

0705  3A0F00 

LDA 

DEVCTL 

;GET  CURRENT  VALUE  OF  DISK  PORT 

0708  B4 

ORA 

H 

;0R  IN  DIRECTION 

0709  D37F 

OUT 

DPDC 

;  SEND  if  TO  DISK  .  . 

070B  F640 

ORI 

DFST 

;0R  IN  STEP 

070D  D37F 

OUT 

DPDC 

;  SEND  IT  TO  DISK  .  . 

070F  EE40 

.  XRI 

DFST 

; CLEAR  STEP 

0711  D37F 

OUT 

DPDC 

;  SEND  IT  TO  DISK 

.  0713  2A0A0E 

LHLD 

HSTDPB 

;GET  STEP  RATE 

0716  110500 

LXI 

0,5 

.  0719  19 

DAD 

D 

071A  7E 

MOV 

A.M 

.  07 IB  E67F 

ANI 

07FH 

071D  El 

POP 

H 

.  .  » . . 

..CALI,.. 

..DLY 

; IMPLICIT  CALL  DLY  AND  RET 

t 

RET 

DLY  DELAY  A  *  2  MS 


07 IE  E5 

071F  210B00 

DLY: 

PUSH 

LXI 

H 

H<TICCNT 

j POINTER  TO  TICK  COUNTER*  INCREMENTED  EVERY  2MS 

0722  86 

ADD 

M 

; VALUE  OF  TICCNT  WHEN  DELAY  COMPLETED 

.  0723  BE 

DLY1: 

CMP 

M 

;WAIT  FOR  TICCNT  TO  CATCH  UP 

0724  C22307 

JNZ 

DLY  1 

•  . . * . 

....  0727  El 

POP 

H 

0728  C9 

RET 
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; .  LPS  -  LOCATE  PROPER . SECTOR 


0729  CD6A07 

LPSO: 

CALL 

STS 

;SKIP  THIS  SECTOR 

072C  3A1A08 
072F  B7 

LPS: 

lda 

ORA 

DLYW 

A 

; READY  TO  READ  YET? 

0730  C22907 

JNZ 

LPSO 

;IF  NOT,  WAIT  A  SECTOR  TIME 

0733  06 i 4 

MVI 

B.LPSA 

0735  F3 

0736  CDB607 

lpsi  : 

bi 

CALL 

WSC 

;WAIT  FOR  A  SYNC  CHARACTER 

0739  3E02 
073B  DA5F07 

MVI 

JC 

A,D$E$HSY 

LPS2 

;FLAG  HEADER  SYNC  ERROR 
; COULDN’T  FIND  ONE 

07 3E  CDA807 

CALL 

RDB 

;READ  THE  VOLUME  NUMBER 

0741  CDA807 
0744  21140E 

CALL 

LXI 

RDB 

H, TRACK 

;READ  THE  TRACK  NUMBER 

. 0'7  4  7  BE . 

0748  3E01 

'  CMP' 
MVI 

M . 

AtD$E$TRK 

;BAD  TRACK  ERROR 

<WA  C25F0 1 

JNZ 

LPS2 

; WRONG  TRACK 

.  d?4D'  CDA807  ' ' 

0750  23 

"CALL"' 
I  NX 

RD8 

H 

'  '  ;R'EAD"  THE  SECTOR  NUMBER' . 

; POINT  TO  SECTOR 

. 0751  BE . 

0752  3E10 

CMP 

MVI 

M 

A,D$E$RNF 

; RECORD  NOT  FOUND  ERROR 

. 0754  C25F07 ' 

«JNfc 

LPS2 

' '  * ; WRONG'  'SECTOR . 

. 0757  ‘62 . 

0758  CDA807 

MOV  ' ' 
CALL 

"m;d . 

RDB 

;D0  CHECKSUM  ON  HEADER 

075B  BC 

075C  C8 

CMP 

RZ 

H 

;OKAY 

.  075D  3E04 

MVI 

A,D$E$HCK 

; Header  checksum  is  wrong 

. 075P  E5 . 

0760  CD6A07 

. LP'S2 : 

PUSH' 

CALL 

PSW 

STS 

;SKIP  THIS  SECTOR 

. 0763  ¥1 . 

0764  05 

POP 

DCR 

PSW 

B 

; ANOTHER  TIME  PASSES  QUICKLY  PAST 

0765  C2350? 

«JNZ 

LPSI 

. 0768'  37 . 

0769  C9 

STC 

RET 

'  YENOUGH  "ALREAHT . 
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. .$T.s  SKIP.  this,  sector . 

;  EXIT  AT  BEGINNING  OF  NEXT  SECTOR . 

. J . If.  IF. HEAD. IS .NOT  OVER. A  HOLE.  .WAIT  8  MS  WHILE  HOLE  CHECKING. 

;  IF  NO  HOLE  IN  THIS  TIME,  THEN  WE  ARE  IN  A  REGULAR  GAP . 

. ♦ . WIT  FOR  THE  NEXT  HOLE  AND  .EXIT. 

J  2.  IF  THE  HEAD  IS  OVER  A  HOLE,  OR  BECOMES  SO  DURING  THE  8  MS . 

. ; . WAIT,.  THEN.  WAIT  FOR  THE  HOLE  TO  PASS,  WAIT  12  MS  IN  CASE  OF 

;  THE  INDEX  HOLE,  THEN  WAIT  FOR  THE  NEXT  HOLE  AND  EXIT. . 


076A  FB  STS:  El 

076b  C5 . PUSH . B  * . . 

.  P.76C.  DBJF . IN . DPDC  .* . ; CHECK  THE  DISK  PORT 

°76E  IF  RAR  ;F0R  SECTOR' HOLES . 

.  .976?.  DA8607 . JC . STS2 . {CURRENTLY  OVER.  A  HOLE 

. J . NO  HOLE  YET,.  WAIT  8  MS  MIN  (10  MS  MAX)  FOR  HOLE  TO  APPEAR 

.  .9772  2 1  p.BOO . LXI  H ,  TICCNT 

0775  46  MOV  '  B,M . 

.O776  DB7F  STS1 :  IN  DPDC 

0778  IF  . RAR . 

.  .977 9.  OA8.697 . JC . STS2 . {FOUND  A  hole 

,077c  3E05 .  MVI  A ,  STSA 

077E  80  ADD . B . 

.P77?..B? . CMP  M 

0780  C27607  JNZ  STS1 . ;8  MS  STILL  NOT  UP . 

.0783.  .C38E07 . JMP . STS3 . ;FpUND  A  SECTOR  GAP 

. . ; . HAVE  .  HOLE..  SKIP  IT.  AND,  WAIT.  .1.2  MS 

.  P7B.6  CD9B07 . STS2  :  CALL  WNH  ;WAIT  FOR  NO  HOLE 

0789  3E07  MVI . A,STSB . 

078B  CD1E07  CALL  DLY 

078E  Cl . STS3:  'POP . B . 

078F  F3  DI 
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. l.VW-.  WAIT.  .HOLE  .DETECT . 

• 

0790  DB7F 

0792  IF 

WHD: 

IN 

RAR 

DP  DC 

;WATCH  THE  DISK  CONTROL  PORT 

.jUNTIL  A  HOLE  .IS.  FOUND . 

0793  D29007 
0796  3E14 

JNC 

MVI 

WHD 

A.WHDA 

;  STILL  NO  HOLE 

. .  ;SET . UP.  .LOOP  .DELAY.  COUNT. . 

0798  C3A307 

JMP 

UDLY 

:  WNH  - 

WAIT 

FOR  NO  HOLE 

» 

679B  DB7F 

079D  IF 

WNH: 

IN 

RAR 

DPDC 

; WATCH  THE  DISK  CONTROL  PORT 

; UNTIL  .THE  .CURRENT  HOLE  IS.  PAST. . 

079E  DA9B07 
07A1  3E14 

JC 

MVI 

WNH 

A.WHNA 

*  :SET  UP  LOOP  DELAY.  COUNT . 

;  UDLY 
• 

-  MICROSECOND  DELAY 

CALLED  WITH  INTERRUPTS  DISABLED  TO  WAIT . 

« 

t 

m 

A  * 

A  » 

(  15  /  2.048  ) 

(  14  /  2.048  ) 

MICROSECONDS  ON  8080 

MICROSECONDS  ON  Z80  . 

07A3  3D 

UDLY: 

DCR 

A 

. 07A4'  C2A307 ' ' 

07A7  C9 

'  JNZ 
RET 

UDLY 

*;  RD’B 
• 

-  READ 

BYTE  FROM  DISK 

07A8  DB7D 

RDB: 

IN 

UPST 

07AA  IF 

07AB  D2A807 

RAR 

JNC 

RDB 

07AE  DB7C 

IN 

UPDP 

. 07B0'5f . 

07B1  A A 

MOV 

XRA 

E,  A 

D 

; SAVE  IT  IN  E 

.  6TB2  07 

07B3  57 

RLC. 

MOV 

Dt  A 

. 07B4'  76 

07B5  C9 

MOV 

RET 

A,E 

; RESTORE  BYTE  READ  TO  A 

PAGE 
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. WSC  -  .WAIT.  SYNC.  CHARACTER 

J  WSC  WAITS  FOR  THE  APPEARANCE  OF*  A  SYNC '  CHARACTER.'  ’  THE  ’DISK 

;  SHOULD  BE  SELECTED,  MOVING,  AND  THE  HEAD  SHOULD  BE  OVER  THE 

;  PRE-SYNC  ZERO  BAND . 

. . IF  SYNC '  is  'NOT  FOUND  ‘ IN  25  CHARACTER  TIMES,  ‘  ERROR . 

07B6' 3E30 . WSC: . MVI . A, READA . -DELAY'  PAST  GARBAGE  BYTE . 

O7B8 . 3D . WSCO :  ...  DC  R . A 

07B9  C2B807  JNZ  WSCO . 

07BC  3EFD . MVI  A,DSYN  ;SET  UP  SYNC  CHARACTER 

07BE  D37E  OUT  UPSC 

O7C0  DB7E  IN  UPSR  ; RESET  SYNC  SEARCH 

07C2  3E50  MVI  '  ' '  A .WSCA . -NUMBER  OF  LOOPS  IN*  25  '  CHARACTERS 

07C4  57  MOV  D,A 

07C5 ' DB7F ’  ’  WSC  V:  "  IN  ' DPDC . 

07C7  E608  ANI  DFSD  {CHECK  FOR  SYNC 

07C9  C2D207 . JNZ . WSC2 . -GOT  IT . 

07CC  15  DCR  D 

07CD  C2C507 . JNZ . WSC1 . -TRY  UNTIL  TIME-OUT . 

07D0  37 . STC . {COULDN'T  FIND ' SYNC . 

07D1  C9  RET 


FOUND  SYNC  CHARACTER 


07D2  DB7C .  WSC2:  IN  UPDP  {GOBBLE  THE  SYNC  CHARACTER 

07D4 '1600 . MVI . D, 0 . {CLEAR’  CHECKSUM . 

07D6  C9  RET 


PAGE 


1 


CP/M  MACRO  ASSEM  2.0  #060  HEATH/ZENITH  BIOS  28  AUG  81 


;  WSP 

-  WRITE  SYNC 

• 

« 

• 

WSP  WRITES 

A  SYNC  PATTERN  OF  ZEROS,  FOLLOWED  BY  A  SYNC  CHARACTER 

• 

ENTRY  A 

INITIAL  DELAY  COUNTER 

C 

NUMBER  OF.  ZERO  PYTES  TO  WJUTE . 

07p7  3p . wsp: . dcr . A . ;PEW. 


07D8  C2D707 

JNZ 

WSP 

• 

t 

DELAY 

IS  UP,  TURN  ON  WRITE  GATE 

07DB  3AOFOO 
07DE  3C 

LDA 

I  NR 

DEVCTL 

07DF  D37F 

OUT 

DPDC 

1 

WRITE 

'#  OF  ZEROS  SPECIFIED  IN  C 

07E1  AF 

07E2  CDEC07 

wspi  : 

XRA 

CALL 

A 

WNB  ;WRITE  A  ZERO  . 

07E6  C2E107 

DCR 

JNZ 

C  ; COUNT  IT 

07E9  3EFD 

MVI 

A.DSYN  JWRITE  A  SYNC  CHARACTER  . 

.  07E6  SI 

* 

• 

MOV 

JMP 

D, A  ;PRE-CLEAR  CHECKSUM,  SO  WNB  EXITS  WITH  D  =  0 

WNB  ; IMPLICIT  CALL.  RETURN  WNB  . 

((<((((((( 


))))))))))) 
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...;.wnb.- 

.WRITE 

NEXT. BYTE . 

f 

• 

WRITE 

A  BYTE  TO  DISK 

PRESUMING  WRITE  GATE  ALREADY  ON 

07Pr.  RP 

E*  f  A 

. 0.7EF.  A1 . 

IN 

ANA 

UPST 

A 

;IS  USRT  READY  FOR  ANOTHER  CHARACTER 
;SET  FLAGS 

07F0  F2ED07 

JP 

WNB1 

;NOT  READY,  WAIT  SOME  MORE 

07F3  7B 

07F^  D37C 

MOV 

OUT 

A,  E 

UPDP 

;GET  CHARACTER  . 

; WRITE  IT  TO  DISK 

07F6  AA 

. P7F.7.P.7. . 

XRA 

RLC 

D 

;UPDATE  CRC  . 

07F8  57 

MOV 

D,  A 

P7F9.P.9. . RET 

.  ENDIF 

.  PAGE 
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IF . H37T . 

U3.7. .DISK. DEVICE. A3IXEB . ?7.  AUG  .$1 


H37DVD:  JMP 

.  .SET37. . . 

. .  .iSEIDSK.  ENTRY  .POINT . 

JMP 

4WP 

RD37 

KB37 

;READ  SECTOR 

. ;  WRITE.  .SECTOR . 

JMP 

JMP 

RESH37 

MNTH37 

; RESET 

: MOUNT  . 

;  SELECT  DISK 

1ST  LOGIN 

. SET37.: . 

LXI 

SHLD 

H,  0 

HSTTRK 

; TRACK  0 

XRA 

STA 

A 

HSTSEC 

; 1ST  SECTOR 

;  (SECTOR  #  0  TO  SPT-1) 

DCR 

STA 

A 

..SE.T37A . 

;SET  FLAG  TO  SUSPEND  'H^bONE' 

;  PROCESSING  AND  DO  NO  RETRIES . 

:  CHECK  IF  DRIVE  IS  AVAILABLE  AND  PROPER. MEDIA  INSERTED. . 

CALI 

RDYH37 

; CHECK  IF  DRIVE  15.  REAPX. . 

JC 

SET379 

;  BR  IF  NOT 

;  READ 

LABEL. 

LHLD 

LXI 

DPBX 

D, DPETRK-DPEHTH 

; FORCE  RESTORE  OF  HEAD 

DAD 

MVI 

D 

M.DPEUNK 

IF 

H37ED 

CALL 

RD37  . 

;TRY  READING  LABEL  AT  DENSITY 

JZ 

SET373 

;  CURRENTLY  INDICATED  IN  TABLES 
;  BR  IF  SUCCESSFUL 

LHLD 

DPBX 

; UNABLE  TO  READ  LABEL  . 

MOV 

XRI 

A.M 

DPEDD 

;  TRY  OTHER  DENSITY 

MOV 

CALL 

M,  A 

RD37 

;TRY  TO  READ  LABEL 

JNZ 

SET379 

;  BR  IF  ERROR 

SET373: 

ELSE 

MVI 

LXI 

A.FDCRDA 

D,H37TMP 

;TRY  READ  ADDRESS  COMMAND  AT  DENSITY 
;  CURRENTLY  INDICATED  IN  TABLES 

CALL 

JZ 

H37RD 

SET373 

;  BR  IF  SUCCESSFUL 

((((((((( 


( 


>>>))))) 
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LHLD 

MOV 

DPBX 

A,M 

; UNABLE  TO  READ 
;  CHANGE  TO  OTHER 

DENSITY 

XRI 

.  MOV 

DPEDD 

M.A 

LXI 

MOV 

H.H37CTL 

A.M 

XRI 

MOV 

CONMFM 

M,A 

OUT 

MVI 

Fb'$CON 

A,FDCRDA 

;TRY  READ  ADDRESS 

COMMAND  AGAIN 

Lxi 

CALL 

D.H37TMP 

H37RD 

JNZ 

SET379 

;  BR  IF  ERROR 

SET 3,73  i  LDA 

CPI 

H37TMP+FDRASL 

FDSL256 

;Q.  SECTOR  LENGTH 

=  256  . 

JNZ 

SET379 

;  BR  IF  NOT 

Call 

JNZ 

RD37 

SET379 

;READ  LABEL 
;  BR  IF  ERROR 

ENDIF 


CALL  CHKLAB  ; CHECK  CHECKSUM  OF  LABEL 

jt . SEf'3?3A . V  Bft'  fF  CORRECT  ‘  CHECKSUM 


Ufcfi . DPBX . IF'  SIS OLE  ‘  DENSITY 'THEH '  ASSUME'  W  LABEL 

MOV  A,M  ;  IS  PRESENT  AND  USE  DEFAULT  LABEL, 

ANI  DPEDD . ;  ‘ '  OTHERWISE'  ERROR . . 


. JNZ . SET379 

MVI  C,LABLEN-i . 

LXI  Dt  HSTBUF+LABEL 

LXI . H,  DFTL37 . . 

. CALL . MOVE  IT 

;  MOVE  LABEL  INFO  TO  DPE'S  HEATH  EXTENSIONS. 

SET373A: 

. LHLD . DPBX . ;  DENSiTY/SIDES 

MOV  A,M 

. ANI  "  " DPETYPE+DPE96t . 

. MOV  B, A 

”  LXI . D,H  STBUF+L  ABHTH+D  PE  FL  AG-D  PEHTH 

LDAX  D 

. ANI . DP'EEbVD'PEDDVbPE2S . 

ORA  B 

. MOV . M/A . 


INX  D 

INX  D 

LdAx . t>  '  ’ 

INX  H 

m . H  • 

MOV  M,  A 


CP'/M  ’  RECORD'S '  PER '  SECTOR' 
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I NX  D  ;CP/M  RECORDS  PER  ALLOCATION  BLOCK 

I  NX  H 

INX  D  ;DPEFLG2  . 

INX  D 

LDAX  D 

MOV  B,  A 

INX  H 

MOV  A,M 

ORA  B 

% 

IF  ( DPEFLG2-DPERPAB-3) 

END  IF 

» 

IF  LABEL  INDICATES  THAT  THE  MEDIA  IS  DOUBLE  SIDED,  THEN 

CHECK  OUT  THE  DRIVE  FOR  DOUBLE  SIDED  CAPABIUTX.. . 

ANI  DPE2S 

JZ  SET374  jBR  IF  MEDIA  IS  NOT  DOUBLE. SIDED . 

MVI  A.FDCRDA+FDFSS1  . 

CALL  H37RD  ;TRY  TO  READ  A  SECTOR  HEADER  ON  2ND  SI.PE . 

JNZ  SET379  ;  BR  IF  ERROR 

LDA  H37TMP+FDRASiD  ; CHECK  SIDE  INFO 

CPI  1  . 

. JNZ . SET379  ;  BR  iF  NOT  2ND  SIDE 

1 

"  STEP  IN  2  TRACKS,  READ  ADDRESS,  AND  STEP  BACK  OUT  2  TRACKS. 

IF  READ  ADDRESS  FINDS  TRACK  1  INSTEAD  OF  TRACK  2,  . 

1 

THEN  ASSUME  4'8  TPI  MEDIA  GENERATED 

ON  A  48  TPI  DRIVE  WAS  INSERTED  INTO  THE  9 6  TPI _ DRIVE ;  THEREFORE . . 

'  *  'USE  AS  A  R/O  DISK  WITH  boUBLE  STEPPING i 

'THERE  ARE  TWO  48  TPI  MEDIA  FORMATS  THAT  ARE  SUPPORTED  ON 

. IT  MEDIA  WAS  FORMATTED  ON  A  96  TPI  DRIVE  AND  ONLY  USES 

THE  FIRST  HALF  OF  THE  DISK  SURFACE.  (E.G.  A  48  TPI  MEDIA  . . 

. rS'DUPtlfcAfED  ONTO  MEDIA  IN  A  96  TPI  DRIVE) 

2)  MEDIA  WAS  FORMATTED  ON  A  48  TPI  DRIVE.  THE  HARDWARE . 

. Group  has  informed  me  that  the  96  fpi  drive  can  reliably 

READ  SUCH  MEDIA  BUT  CANNOT  WRITE  ON  IT.  TO  GO  BETWEEN  . 

. TRACKS  IT  IS  NECESSARY  TO  DOUBLE  THE  NUMBER  OF  STEPS. 

. 

;  '  FOLLOW iNG  ARE  THE  POSSIBLE  OUTCOMES  OF  THE  READ  ADDRESS 

MEDIA  DRIVE  DRIVE  OUTCOME  . 

( 

( 

(  (  (  ( 

(  ( 

( 

)  ) 

CP/M  MACRO  ASSEM  2.0 

) 

#065 

FORMAT 

) 

...  HEATH/.™™.  BIOS . 

GENERATED  ON  INSERTED  IN 

) 

TRACK 

)  )  )  > 

.28.  AUG.  8.1 . 

* 

* 

48  TPI 

48  TPI 

48  TPI 

2 

f 

48  TPI 

48  TPI 

96  TPI 

• 

48  TPI 

..9.6.  TPI  . 

4$  TPJ 

...SPRQ8.. 

» 

48  TPI 

96  TPI 

96  TPI 

2 

• 

96  TPI 

96  TPI 

48  TPI 

. . .  ERROR  . . 

♦ 

* 

• 

t 

96  TPI 

96  TPI 

96  TPI 

2 

SET374: 


MVI 

STA 

A, 2 

TRACK 

CALL 

SDT37 

;STEP  IN  TWO  TRACKS 

MVI 

LXI 

A, FDCRDA 

D, H37TMP 

CALL 

JNZ 

H37RD 

SET379 

;D0  READ  ADDRESS 
;  BR  IF  ERROR 

LDA 

H37TMP+FDRATRK 

; CHECK  IF  TRACK  2 

CPI 

JZ 

2 

SET374D 

;  BR  IF  YES 

;  1)  48  TPI  MEDIA  GENERATED  ON  48  TPI 

;  DRIVE  INSERTED  INTO  48  TPI  DRIVE 


;  2)  48  TPI  MEDIA  GENERATED  ON  96  TPI 

;  DRIVE  INSERTED  INTO  96  TPI  DRIVE 
. 3 )  96  TPI ' MEDIA  INSERTED  IN  96  TPI ’ 

. CPI . 1 . ; CHECK  "iF  TRACK  ’  1 . 

. JNZ . SET379 . ; ,  BR .  IF  .  NOT . 

. LHLD  _  DPBX . J SET  FLAG  TO  INDICATE.  48  TPJ.  .MEDIA . 

MOV  A,M  ;  GENERATED  ON  48  TPI  DRIVE  INSERTED 

ORI  DPE48RO  ;  INTO  96  TPI  DRIVE.  THE  MEDIA 

.  MOV  M, A  ;  is  TREATED  AS  R/O 

SET 37'4D : '  CALL  ' '  "  RST37 . ;  STEP  '  OUT  ’  TWO  ‘ TRACKS  BY  DOING  RESTORE 

. . ; .  (.' TRKPT ' .  VARIABLE  WAS.  SET.  ABOVE) . 

;  MOVE  LABEL  INFO  TO  DISK  PARAMETER  BLOCK. 


SET375;  LHLD  SETDSKC  ;GET  DPE  ADDRESS 

. lxi . b.'dpedpb . 5  get'  dpb  'address . 

DAD  B 

. CALL' '  "  "HLIHL . 

LXI  D.HSTBUF+LABDPB  ;GET  ADDR  OF  INFO  IN  LABEL 

. MVI . C.'DPBL . ;  COUNT  TO'  MOVE . 

CALL  MOVEITX  ;MOVE  INFO 


;  RETURN  WITH  DPE  ADDRESS  IN  (HL) . 


XRA  A  ; INDICATE  NO  ERROR 


SET378:  MVI  A,0  ; CLEAR  ’H37DONE ’  SUSPENSION  FLAG 

. . SEf37A . ;  "(MVI  USED  TO'  CLEAR  " ACCUMULATOR 


CP/M  MACRO  ASSEM  2.0 


28  AUG  81 


r* 


#066  HEATH/ZENITH  BIOS 

I 

CALL . H3.7DONE. . I 

RET . 

;  ERROR  OCCURRED.. . 

SET379:  . 


SINCE  I  WANT  TO  PRESERVE  PSW/C  BIT) 
POKE  .WITH.  P.RIVE.  .FOR.  .NOV.  X*H3.7DQN£f. 
DOESN’T  DISTURB  PSW/C  BIT  EITHER) 


STC .  ;  INDICATE  ERROR 

JMP  SET378  .  . 


DFTL37 

DR 

LABVER  ; DEFAULT 

LABEL 

DB 

DW 

DPEH37 , 0 , 2 , 8 ,6 , 0 ,0 ,0 

20 

DB 

DW 

3,7,0 

91 ,63,OOCOH, 16,3 

SET37A 

DB 

0  ; SUSPEND 

’H37DONE'  FLAG 

;  0  =  NO 

NOT  0  =  YES 

.  H37TMP 

DS 

FDRAL 

. 

PAGE 

.  ;  H37WAIT' 

• 

—  LOW  LEVEL  I/O  ROUTINE  TO  ISSUE  COMMAND  AND  WAIT 

FOR  COMPLETION.  . 

;  ENTRY: 

(A)=COMMAND 

;  EXIT: 

( { SP) ) =R£T  ADDR 
( A) = STATUS  BYTE 

• 

;  USES: 

RET  IS  DONE  VIA  H37  INTERRUPT  HANDLER 

A,F,B,H,L  . 

H37WAIT: 


POP 

H 

.  SHLD 

H37IRET 

jiNFORM  INTERRUPT  HANDLER 

.  MOV 

B,  A 

MVI 

A,FD$CD 

;ACCESS  C/D  REGS  . 

.  OUT 

FD$INT 

MOV 

A,B 

OUT 

FD$CMD 

; ISSUE  COMMAND  . 

.  JMP 

. 

;WAIT 

V '  H37RD  -- ‘ LOW ‘ LEVEL  I/O  ROUtlNE  TO  iNPUT  DATA  FROM  H37. 

;* . ENTRY:' “(AVr  COMMAND . 

;  (DE)=BUFFER  ADDRESS 


((((((((.(( 


)  ) 

) 

) 

)  )  ) 

)  ) 
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;  ( (SP) )=RET  ADDRESS 

.  ;  exit: 

(A) = STATUS  BYTE 

9 

PSW/Z  =  0  IF 

ERROR 

• 

=  1  IF 

NO  ERROR 

;  USES:  A 

• 

>,F,B,D,E,H,L 

H37RD: 

LX  I 

H, H37RD2 

JSET  INTERRUPT  HANDLER  RET  ADDR 

SHLD 

H37IRET 

MOV 

B,  A 

LDA 

H37CTL 

{TURN  ON  DRQ 

ORI 

CONDRQ 

OUT 

FD$CON 

MVI 

A,FD$CD 

; ACCESS  C/D  REGS 

OUT 

FD$INT 

MOV 

A,  B 

LXI 

H,H37RD1 

OUT 

FD$CMD 

; ISSUE  COMMAND 

H37RD1: 

HLT 

IWAIT  FOR  NEXT  INPUT  BYTE 

IN 

FD$DAT 

; INPUT  BYTE 

STAX 

D 

;PUT  IT  INTO  BUFFER 

I  NX 

D 

;BUMP  BUFFER  POINTER 

PCHL 

;Lo6p 

;  TURN  OFF  DRQ  ROUTINE. 

(ALSO  USED  BY  WR37) 

H37RD2: 

PUSH 

PSW 

LDA 

H37CTL 

;TURN  OFF  DRQ 

OUT 

FD$CON 

POP 

PSW 

ANA 

A 

;SET  PSW/Z  TO  INDICATE  ERROR  STATUS 

RET  . 

t 

;  H37DONE  — 
* 

•  DONE  WITH  H37  FOR 

NOW 

;  USES:  ti 

f 

I.L 

TH'e  select  disk  device'  driver  entry  uses'  other  RoufiNES 

IN  THE  DRIVER  WHICH  USE  * H37DONE1 .  SINCE  SELECT  USES 


LOW  LEVEL'  IVO'  ROUTINES'  ALSO,'  THE  ‘’HSTDOME'  PROCESSING' 
MUST  BE  TEMPORARILY  SUSPENDED  UNTIL  SELECT  IS  DONE. 


) 


A3YD0NE: . 

PUSH  PSW 


I 
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.IDA . .SET3.7A . i.C.HECK  IF.  .'.H37BQNE/.  .IS.  .SUSPENDED 

ANA  A  ;  TEMPORARILY 

.JM . .H37PQNE1 . .  .BR.  IF.  IT  .IS. . 


XU. 

MOV 


.H.H3.7CTL. 

A,M 


JlURN.  .OFF.  IRQ. 


OUT 

MOV 

FD$CON 

M,  A  .  . 

LXJ 

H, DELAY37  ;SET  DESELECT  AND  MOTOR  TURN  OFF 

SHLD 

DLYM037  ;  DELAY  VALUES 

H37D0NE1 : 

POP 

PSW 

RET 

PAGE 

;  RD37  __  HIGH  LEVEL  I/O  ROUTINE  TO  READ  H37  SECTORS. 

;  ENTRY: 

• 

(HSTDPB)  =  ADDR  OF  HEATH  EXTENSIONS  FOR  DRIVE 
(HSTTRK)  =  TRACK 

• 

•  EXIT: 

(HSTSEC)  =  SECTOR  (6  TO  SPT-i) 

(ERFLAG)  =  0  IF  NO  ERROR 

• 

♦ 

■ 

<>  0  IF  ERROR 

PSW/Z  =  0  IF  ERROR 

• 

;  USES: 

=  1  IF  NO  ERROR 

ALL 

RD37:  CALL 

SDP37 

;SET  UP 

RD370:  CALL 

SDT37 

;SEEK  THE  DESIRED  TRACK 

LDA 

ORI 

SIDE 

FDC  RDS+FDF  SLF 

;GET  SIDE  SELECT 
;SET  UP  COMMAND 

LXI 

CALL 

D.HSTBUF 

H37RD 

;GET  BUFFER  ADDR 
;READ  IN  DATA 

.  JZ- 

RD373 

;  BR  IF  NO  ERRORS 

.  CALL 

JNC 

H37E 

RD370 

; CHECK  IF  I  SHOULD  RETRY 
;  BR  IF  YES 

ORI 

OFFH 

;  OTHERWISE  FLAG  ERROR 

STA 

ERFLAG 

RD3’73:  JMP 

H37DONE 

;EXIT  THRU  ‘^DONE' 

PAGE 

;  WR37  ~  I/O 
* 

t 

ROUTINE  TO  WRITE 

SECTOR  TO  H37 

ENTRY : ' '  CHSTDPB)'  =  ADDR '  OF  HE  ATM  EXTENSIONS  FOR  DRIVE 


(HSTTRK)  =  TRACK 


((((((((({( 


>>>>)>)))■) 
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.  (HSTSEC)  =  SECTOR  (0  TO  SPT-1) 

*  E 

KIT: 

(ERFLAG)  =  0  IF 
<>  0  IF 

NO  ERROR 

ERROR 

f 

m 

PSW/Z  =  0  IF  ERROR  . 

. =  1  IF  NO  ERROR 

;  u 

V 

5ES: 

ALL 

. WR37: 

LHLD 
.  .MOV  , 

HSTDPB 

A,M 

; CHECK  FOR  M8  TPI  R/O 

ANI 

MVI 

DPE48RO 

A , FDSWPV 

; ASSUME  ERROR  CODE 

JNZ 

WR37E 

;  BR  IF  IT  IS  —  NO  WRITY 

CALL 

SDP37 

;SET  UP 

WR370: 

CALL 

‘  SDT37 

5  SEEK  THE  DESIRED  TRACK  . 

MVI 

OUT 

A,FD$CD 

FD$INT 

; ACCESS  C/D  REGS 

LDA 

ORI 

H37CTL 

CONDRQ 

;TURN  ON  DRQ 

OUT 

LDA 

FD$CON 

SIDE 

;GET  SIDE 

ORI 

LXI 

FDCWRS+FDF  SLF 
H.WR372 

; SET  UP  COMMAND 
; INTERRUPT  RETURN  ADDRESS 

SHLD 

LXI 

H37IRET 

H,WR371 

;LOOP  ADDRESS 

LXI 

OUT 

D, HSTBUF 
FD$CMD 

;SEND  THE  COMMAND 

WR371: 

LDAX 

D 

HLT 

OUT 

FD$DAT 

I  NX 
PCHL 

D 

WR372: 

CALL 

H37RD2 

;TURN  OFF  DRQ  USING  1 H37RD21 

JZ 

WR373 

_ ;.BR.  IF  .NO  I/O  ERROR 

WR37E: 

CALL 

H37E 

; CHECK  IF  I  SHOULD  RETRY 

JNC 

WR370 

;  BR  IF  YES  . 

ORI 

STA 

OFFH 

ERFLAG 

;FLAG  AS  1/6  ERROR 

WR373: 

JMP 

H37DONE 

jEXIT  THRU  H37DONE 

PAGE 


t 

*. . .  P.37E.  “  CHECK  IF  I  SHOULD  DO  RETRIES. 


ENTRY:  (ERRCNT)  =  RETRY  COUNTER 
EXIT: "  '  * PSW/C  ='  O'  IF ' DO  RETRY "" 
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=  1  IF  DON’T 

. (ERRCNT)  UPDATED 

USES:’ '  *  ALL 


;  I/O 
; 

RECOVERY  PROCEDURE: 

RETRY  I/O  OPERATION 

:  2) 

;  3) 

RESTORE  HEAD,  THEN  RETRY 
RETRY  I/O  OPERATION 

I/O  OPERATION 

:  *) 

• 

FLAG  1 

HARD  ERROR 

H37E:  . 

STA 

ERRTYP 

;SAVE  ERROR  CODE 

ANI 

JNZ 

FDSNRD+FDSWPV 

H37E1 

; CHECK  FOR  NOT  READY  OR  WRITE  PROTECT 
;  BR  IF  YES  -  NO  RETRIES 

LDA 

SET37A 

;IF  NOT  DOING  SELECT 

ANA 

JNZ 

A 

H37EO 

LHLD 

INX 

SECNT37 

H 

;BUMP  SOFT  ERROR  COUNTER 

SHLD 

SECNT37 

H37E0: 

LXI 

DCR 

Ht ERRCNT 

M 

; UPDATE  RETRY  COUNTER 

JZ 

H37E1 

;  BR  IF  EXHAUSTED  RETRIES 

moV 

CPI 

AtM 

2 

•  CZ'  •  • 

RST37 . 

VRESTORE'  HEAD'  'BEFORE'  TRYING AGAIN . 

'  XRA 
RET 

A 

; INDICATE  TRY  AGAIN 

H37E1: 

LXI 

HtH37MSG 

"c’a'iX 

PRTERR 

; PRINT  EXTENDED  ERROR  MSG 

STC 

RET 

; INDICATE  DON'T  TRY  AGAIN 

H37MSG 

DB 

'H37' »0 

PAGE 


» 

• 

f 

H37  INTERRUPT  HANDLER. 

t 

1 

USES  INTERRUPT  LEVEL  4 

1 

■  •  •  THE '  INTERRUPT'  HANDLER  *  RETURNS '  CONTROL  'TO  ‘THE'  'USER'  PROGRAM 

♦ 

1 

AT  THE  ADDRESS  IN  1 H37IRET' . 

t 

• 

t 

EXIT:  (A)  =  STATUS  BYTE 

t 

9 

USES':'  a;f 

H37ISR:  MVI  A, 10  ; DELAY  AWHILE  TO  LET  STATUS  SETTLE 


( 


( 


) 
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H37ISR1:  DCR 
JNZ 

A 

H37ISR1  . 

IN 

FD$STA  ; INPUT  STATUS  TO  CLEAR  INTERRUPT 

XTHL 

LHLD 

;SAVE  (HL)  DISCARD  RET  ADDR 

H37IRET  ;GET  NEW  RETURN  ADDRESS 

XTHL 

El 

; RESTORE  (HL)  SET  NEW  RET  ADDR 
: RE-ENABLE  INTERRUPTS 

RET 

• 

PAGE 

♦ 

t 

• 

SDP37  —  ; 

SET  DEVICE  PARAMETERS 

• 

t 

• 

ENTRY: 

( HSTDPB)  =  ADDR  OF  HEATH  EXTENSIONS  FOR  DRIVE 

(HSTTRK)  =  TRACK  . 

■ 

t 

• 

USES: 

(HSTSEC)  =  SECTOR  (0  TO  SPT-lj 

ALL 

SDP37: 

CALL 

ONH37 

; SELECT  DRIVE 

LDA 

SET37A 

ANA 

A 

MVI 

A, 4 

;SET  TRY  COUNTER 

JZ 

SDP371 

RAR 

;ONLY  2  TRIES  IF  DOING  SELECT 

SDP371:  STA 

ERRCNT 

LDA 

HSTTRK 

;GET  TRACK  # 

STA 

TRACK 

MVI 

B,0 

; DEFAULT  TO  SIDE  0 

LHLD 

HSTDPB 

MOV 

A,M 

ANI 

DPE2S 

; CHECK  IF  MEDIA  IS  DOUBLE  SIDED 

jz 

SDP374 

;BR  IF  NOT 

LX  I 

H, TRACK 

.;is  ....  . 

MOV 

AtM 

;  DOUBLE  SIDED 

ANA 

A 

;  THEREFORE  DIVIDE  TRACK  # 

RAR 

;  BY  2  TO  GET  REAL  TRACK  # 

MOV 

M,  A 

JNC 

SDP374 

;  EVEN  TRACKS  ON  SIDE  0 

MVI 

B.FDFSS1 

;  ODD  TRACKS  ON  SIDE  1 

SDP37U:  MOV 

A,B 

STA 

SIDE 

;SAVE  SIDE 

LDA 

HSTSEC 

; GET  SECTOR  # 

INR 

A 

;MAKE  1  -  SPT 

STA 

SECTOR 

LHLD 

HSTDPB 

;SET  TRKPT  FOR  THIS  UNIT 

LX  I 

D, DPETRK-DPEHTH 

DAD 

D 

SHLD 

TRKPT 

MOV 

A,M 

'  -GET'  'CURRENT*  TRACK . 

RAL 

;IF  MSB==1  THEN  DON'T  KNOW  WHERE 

I 
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JC 

RST37 

;  HEAD  IS.  SO  RESTORE 

. MVI . . . 

. 

OUT 

FD$INT 

; ACCESS  T/S  REGS 

.  MOV 

A,M 

; UPDATE  TRACK  REG 

OUT 

FD$TRK 

;  WITH  CURRENT  VALUE  FOR  THIS  DRIVE 

. RET. . . . 

• 

. .QNH3.7. .TURN  .QN.  MOTOR...  .SELECT.  DRIVE , .  AMD.  SET .  SETTLE  DELAY  COUNTERS 

• 

• 

ONH37: 

.  LX  I 

. 

SHLD 

DLYM037 

.  LHLD 

HSTDPB 

;GET  THE  DRIVE  SELECT  CODE  AND  DENSITY 

MOV 

A.M 

.  ANI 

DPEDD 

; CHECK  BIT  DENSITY 

j  Z 

ONH37A 

;  BR  IF  SINGLE 

MVI 

A , CONMFM 

;SET  DOUBLE  BIT  DENSITY  CONTROL  FLAG 

ONH37A:  INX 

H 

ORA 

M 

;0R  IN  UNIT  SELECT 

i 

ORI 

CONMO+CONIRQ 

;0R  THE  MOTOR  &  IRQ  ON 

.  OUT 

FD$CON 

MOV 

B,  A 

I  SAVE  THIS  VALUE  tEMPORARILY 

LXJ 

H.H37CTL 

;GET  THE  CURRENT  VALUE  OF  THE  CONTROL  PORT 

MOV 

A.M 

ANI 

CONMO 

;IF  THE  MOTOR  WAS  ON 

JNZ 

ONH37B 

;  THEN  WE  DONfT  HAVE  TO  WAIT  FOR  IT  TO  COME  UP 

PUSH 

H 

LHLD 

HSTDPB 

60T  HOW' PAS’f  'fftE'  OfilVE' COMES'  WT'O  St>EED . 

LXI 

D , DPESEK-DPEHTH 

DAD 

D 

MOV 

A,M 

POP 

H 

RAL 

;SETS  CARRY  IF  UP  FAST 

IF 

DPEMO- 10000000B 

%:  DPEMO 

NE- 10000000B 

END  IF 

' 

MVI 

A,(1000+3)/4+1 

; NORMAL  TIMING  (APPROX  1  SECOND) 

JNC 

ONH37C 

RAR 

;NEW  DRIVES  UP  IN  1/4  THE  TIME 

RAR 

ANI 

03FH 

JMP 

ONH37C 

ONH37B  MOV 

A,M 

.GET  THE  OLD  VALUE  OF  THE  CONTROL  PORT 

ANI 

CONDSO+CONDS1+CONDS2+CONDS3  ; CHECK  SELECT  DRIVE (S) 

ANA 

B 

; CHECK  TO  SEE  IF  SAME  HEAD  ALREADY  DOWN 

MVI 

A.O 

...... 

JNZ 

ONH37C 

;YES.  ALREADY  LOADED,  NO  DELAY 

MVI 

A.  (50+35/4+1 

;MUST  DELAY  FOR  HEAD  LOAD 

ONH37C:  STA 

DLYW 

MOV 

M.B 

;SET  NEW  VALUE  OF  CONTROL  PORT 

RET  . 

(((((.!((((( 


) 


) 
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;  RST37  —  RESTORE  HEAD 

;  ENTRY :  (TRKPT)  =  ADDRESS'  OF  DPETRK  SLOT ' IN  HEATH  * EXTENSION ' OF ' DPE 

. EXIT.:. . . .  VIA  R37WAIT 

;  USES:  ALL  . 


RST37:. . .  CALL . WBS37 . 

LHLD  TRKPT  . ;  INDICATE  ’  TRACK  IS  0 

. MVI . M  f  0 . 

. INX . H  .  ;HL  ->  STEP  RATE 

IF  (DPETRK+i )-DPESEK 

. DPESEK  Np  (DPETRK+1 ) 

ENDIF 

. MOV . A ,  M 

ANI  OFFH-DPEMO  . 

. OR? . FDCRST . 

JMP  H37WAIT . •  ISSUE  ’  COMMAND . 

PAGE . 

;  MOUNT  H37  MEDIA . . 


MNTH.37 : .  LHLD . HSTDPB  . . .  ;SET  TRACK  POINT  TO  UNKNOWN 

LXI  D , DPETRK-DPEHTH . 

DAD  D 

. MVI . M,  DPEUNK  . 

;+ . JMP . RESH37 . ; RESET  DRIVE . 


;  RESET  H37 


.  RESH37:  MVI 

AtFD$CD 

;ACCESS  C/D  REGS 

OUT 

FD$INT 

.  MVI 

A,FDCFI+FDFINI 

TERMINATE  ANY  PRESENT  ACTIVITY 

OUT 

FD$CMD 

.  XRA 

A 

OUT 

FD$CON 

.  STA 

H37CTL 

LXI 

h,o 

.  SHLD 

DLYM037 

SHLD 

H37IRET 

.  IN 

FD$DAT 

; CLEAR  ANY  PENDING  DRQ 

MVI 

A,  10 

; DELAY  FOR  AWHILE 

RESH371: 

;  TO  LET  STATUS' SETTLE . 

DCR 

A 
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JNZ 

. . .  IN 

RESH371 

FD$STA 

; CLEAR  ANY  PENDING  IRQ 

RET 

.  PAGE 

♦ 

.  ;  SDT37  —  SEEK  DESIRED  TRACK 

AND  SET  SECTOR  REG  FOR  DESIRED  SECTOR 

■ 

;  ENTRY: 

(TRACK)  =  TRACK 

• 

;  USES: 

(SECTOR)  =  SECTOR 
ALL 

•  . . •  . . . . * . . 

• 

SDT37:  LHLD 
MOV 

TRKPT 

A,M 

;GET  CURRENT  TRACK 

LXi 

CMP 

H, TRACK 

M 

JZ 

SDT372 

; ALREADY  AT  DESIREb  TRACK  . ■ . 

CALL 

MOV 

WBS37 

A,M 

CALL 

SDT376 

LHLD 

MOV 

HSTDPB 

A,M 

; CHECK  IF  48TPI  R/0  MEDIA' IN  96TPr  DRIVE . 

AN  I 
JZ 

DPE48R0 

SDT371 

;  BR  IF  NOT  —  NO  NEED  TO  DOUBLE  STEP 

MVI 

A,FD$TS 

;G0  THROUGH  SEEK  PROCEDURE  AGAIN  A 

OllT 

LHLD 

FDfcINt 

TRKPT 

;  A  SECOND  . . 

MOV 

OUT 

AtM 

FD$TRK 

; RESET  CONTROLLER'S  TRACK  REG 

LDA 

CALL 

TRACK 

SDT376 

;D0  2ND  SEEK 

SDT371:  MVI 

AtFD$TS 

; ACCESS  T/S  REGS 

OUT 

LDA 

FD$INT 

TRACK 

; OUTPUT  DESIRED  TRACK  TO  TRACK  REG 

OUT 

FD$TRK 

'  *  'fftfS  ‘  IS'  DONE  IN'  CASE  'SEEK  'ABORTED' . 

;  WHEN  IT  TRIED  TO  STEP  TO  NEGATIVE 

;  TRACK  LEAVING  TRACK  REGISTER  . 

;  CONTAINING  0. 

LHLD 

MOV 

TRKPT 

M,A 

; UPDATE  IN  MEMORY  TRACK  VALUE 

MVI 

A,  ( 15+3) /4+1 

; SETTLE  DELAY  COUNT  (15  MS) 

LXI 

CMP 

H.DLYW 

M 

j.t?  utLAY  COUNTER 
;  IS  >r  STEP  SETTLE  TIME 

TC 

MOV 

SDT372 

M,  A 

; FORCE  DELAY  FOR  SETTLE  TIME 

SDT372:  MVI 

AtFD$TS 

OUT 

LDA 

FD$INT 

SECTOR 

t ACCESS  T/S  REGS  . 

( 


( 


) 


) 


) 


) 
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OUT . FD$SEC . 

SDT373:  LDA  DLYW  ;WAIT  UNTIL  MOTOR  IS  UP  TO  SPEED , 

. ORA . A . AND  HEAD  .SETTLES  DUE  TO 

JNZ  SDT373  ;  LOADING  OR  STEPPING  . 

. RET . 

. DO  SEEK . 


A  )..=  DESIRED  TRACK 


.  SDT376:  MOV 

B,A . 

MVI 

.  OUT 

A,FD$CD 

FD$INT 

: ACCESS  C/D  REGS 

MOV 

.  OUT 

AtB 

FD$DAT 

JTELL  CONTROLLER  DESIRED  TRACK 

.  LHLD 

TRKPT 

;GET  STEP  RATE 

I  NX 

.  MOV 

H 

AtM 

AN  I 

.  ORI 

OFFH-DPEMO 

FDCSEK+FDFHLB 

;  OR  IN  COMMAND 

JMP 

H37WAIT 

; ISSUE  COMMAND  AND  WAIT 
:  (RET  THRU  H37WAIT) 

.  PAGE 

.  5  RDYH37  --  CHECK  IF  UNIT  READY 

;  1. 

. .  ;  2. 

DRIVE  IS  AVAILABLE  . 

CORRECT  TYPE  OF  MEDIA  HAS  BEEN  INSERTED 

t 

;  ENTRY:  NONE 

;  EXIT:  PSW/C  =  6  IF  READY  ’  . 

.  J  =  1  IF  NOT  READY 

;  USES:  ALL  . 

• 

;  THE  NUMBER  OF  HOLE  TRANSITIONS  IS  COUNTED  IN  THE  TIME  IT  TAKES  . 

. FOR  2  REVOLUTIONS  (400MS).  IF  THE  DISK  INSERTED  IS  SOFT  SECTORED. 

;  THEN  2  HOLES 

PLUS/MINUS  1  (4+-2  TRANSITIONS)  SHOULD  BE  SEEN. 

RDYH37: 

CALL 

ONH37 

;TURN  OF  MOTOR  AND  SELECT  DRIVE 

LXI 

RDYH37A: 

HtDLYW 

;WAlf  UNTIL  DRiVE  IS  UP  TO  SPEED  . 

MOV 

ANA 

A,M 

A 

JNZ 

RDYH37A 

MVI 

OUT 

A t  FD$CD 

FD$INT 

; ACCESS  C/D  REGS 

MVI 

OUT 

A , FDCFI+FDFINI 
FD$CMD 

5  FORCE  TYPE  STATUS 

MVI 

RDYH37B: 

A,  iD 
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DCR 

JNZ 

A 

RDYH37B 

; DELAY  AWHILE  TO  LET  CONTROLLER  SETTLE 

LXI 

H.TICCNT 

;  GET.  TIME.  VALUE. . 

MVI 

ADD 

A,  200 

M 

MOV 

B,A 

;(B)  =  TIME  VALUE 

MVI 

MOV 

c,o 

D.C 

; (C)  =  HOLE  COUNTER 

:  ( D)  =  INIT  HOLE  STATUS.  TO .  N.O.  HOLE . 

RDYHT7C:  •  . 

.  IN . 

ANI 

FDASTA 

FDSIND 

;GET  HOLE  STATUS 

CMP 

JZ 

D 

RDYH37D 

; CHECK  IF  CHANGE  IN  STATUS 

i.PA.IF.  .NO.  .CHANGE . 

MOV 

D.A 

INR 

C 

; COUNT  TRANSITION 

RDYH37D: 

MOV 

A.B  . 

CMP 

JNZ 

M 

RDYH37C 

MOV 

CPI 

A.C 

1*2 

;TIME  UP  —  CHECK  #  OF  HOLES 

.  JC 

CPI 

RDYH37E 

3*2+1 

5 IF  <  1  THEN  ERROR 

CMC 

JNC 

RDYH37F 

;IF  <=  3  THEN  OK  . 

RDYH37E :  . 

MVI 

CALL 

A.FDSNRD 

H37E 

; ERROR  CODE  FOR  UNIT  NOT  READY 

RDYH37F :  . 

JMP 

H37D0NE 

;RETRUN  VIA  'H37DONE' 

;  WBS37  — 

• 

WAIT  BEFORE  STEPPING 

• 

COMMAND  SHOULD  NOT  BE  EXECUTED  BEFORE  i  MS  AFTER  THE  WRITE. 

• 

THEREFORE,  TO  INSURE  THIS,  WBS37  IS  USED  BEFORE  ANY  STEP  . . 

■ 

1 

OPERATIONS  TO  DELAY  FOR  APPROXIMATELY  1  MS. 

;  USES: 

• 

A,F 

WBS37 :  MVI 

A, 150  . 

WBS37 i :  DCR 

A 

JNZ 

WBS371  . 

RETT' 


(((((( 


))>))) 
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ENDIF 
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. IF . HOT . 

. ; . HU. 7.  .DISK. DEVICE.  DRIVER . 23  .<?W*  .8? . 


R47DyD.t .  JHP . SEID47 . iSELECT.  DISK.  .ENTRY  .POINT 

JMP  RD47  ;READ 

. JMP . mi . ; WRITE . 

JMP  RESH47  ; RESET 

. XRA  .A. .!. .  RET  .  \ .  N.QP . AMOUNT . 


• 

• 

• 

8  INCH 

DISK  DESCRIPTORS 

■ 

DW 

&XLATE$TABLE  ; POINTER 

TO  TRANSLATE 

TABLE 

DW . 

.  ,&PARAM$BLQCK . l POINTER  .TO.  .PARAMETER  .BLOCK . . 

♦ 

DB 

DENSITY  AND  SIDES 

PR 

RPCORDS$PER$SECTOR 

* 

* 

DB 

RECORDS$PER$ ALLOC AT ION 

R47PMS: 

PW. . 

..xliqs.prrqss. . :.fpp . 

SINGLE  DENSITY 

SINGLE  SIDED  . 

DB 

0,1,8 

DW 

XLTOS,DPBOSD  ; 

SINGLE 

DOUBLE 

DB 

DPE25.U16  . 

DW 

XLTOD.DPBODS  ; 

DOUBLE 

SINGLE 

DB 

DPEDD,2, 16 

DW 

XLTOD , DPBODD  ; 

DOUBLE 

DOUBLE 

DB 

DPEDD+DPE2S ,2,16 

IF 

HH7ED 

DW 

O^DPBOES  ;  .  . 

EXTENDED 

SINGLE  . 

DB 

DPEED+DPEDD ,8,16 

DW 

O.DPBOED  ; 

EXTENDED 

DOUBLE 

DB 

DPEED+DPEDD+DPE2S, 8» 16 

ENDIF 

PAGE 


SETD47:  MVI 

A , DR AS 

CALL 

WCD 

LHLD 

INX 

DPBX 

H 

MOV 

ORI 

A,M 

00 1H 

CALL 

WBD 

calL 

CALL 

W4TR 

HA7IND 

;READ  THE  AUXILIARY  STATUS  INFORMATION 

.  PUSH 

PSW 

(((.<(<('<<.( 


))>))))})) 
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ANI  03H  ;FIND  SECTOR  LENGTH . 

. CPI. . 2 . 

IF  H47ED  . 

. 4P . SETP1 . .;IF.LEN.<>  .128  OR  256 

MVI  A, 2  ;  THEN  MAKE  INDEX  2  . 

. ELSE . 

JNC  SETD9  ;IF  LEN  <>  128  OR  256  THEN  ERROR . 

. ENDIF . 

. -•  ADD. . A . ;  •2.  T.Q . ALLOW.  FOR.  .SINpLF/fPOUBLP  DENSITY 

MOV  Df A  ;SAVE  INDEX  TO  DATE 

POP  PSW  . 

. AMI . 1  pH. . ;.QHE.CK . FOR  SIDE  1 

MOV  A,D  . 

. JZ . SETD2 . 

. ORI . 1 . -FLAG  SIDE  .  1 .  AVAILABLE 

. SETD2;.  t  MOV . B,A 

ADD  A  . ;  »2 . 

. ADD . B  ;  *3 

ADD  A  ;*6 . 

. ADD . B . ;».7 . 

. LXI . B.H47PWS. . 

CALL  DADA  . 

XCHG  ;DE  NOW  POINTS  TO  PARAMETERS  FOR ' THIS DISK 

. WILD . SETPSKC . ;.RL  POINTS  TO  DPE  FOR  THIS  DRIVE 

LDAX  D  ; STORE  THE  NEW  TRANSLATE  TABLE . 

. M.QV . (!,A . 

INX  D  . 

. m . h . 

LDAX  D  . 

. m . m,a . 

INX  D  . 

PUSH . D . 

. LXI . p,pPEpPB-:1 .  ;BUMP  HL  TO  POINT  TO  DPB  POINTER 

DAD  D  . 

. POP . D . 

. LP.AX . D . -NOW  SET  UP  NEW  DPB  POINTER 

MOV  M, A  . 

.  INX  D 

INX  . H . 

.  LDAX  D 

"  MOV . M,A . 

.  INX  D 


LHLp . DPBX . ;GET  POINTER  TO  THIS  DRIVE 

MOV  A,M  iFLAG' DENSITY  AND  SIDEDNESS 

ANI  0FFH-DPEED-DPEDD-DPE2S 

MOV  B, A . 

LDAX  D 
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ORA 

MOV 

B 

M.A 

INX 

I  NX 

D 

H 

; RECORDS  PER  SECTOR 

INX 

LDAX 

H 

D 

MOV 

INX 

M,A 

D 

INX 

LDAX 

MOV 

H 

D 

Mt  A 

XRA 

RET 

A 

;  INDICATE  NO  ERRORS 

IF 

NOT  H47ED 

SETD9 : 

STC 

RET 

; INDICATE  ERROR 

ENDIF 

PAGE 

.  ;  RESET  H47. 

RESH47: 

MVI 

AtDCRES 

CALL 

CALL 

H470UTC 

W4D0NE 

;WAIT  FOR  THE  CONTROLLER  TO  BE  DONE 

XRA 

CALL 

A 

H470UTC 

; CLEAR  CONTROL  REG 

'  RET 

RD47: 

Page 

MVI 

AtDRD 

;D0  A  BUFFERED  READ  . 

CALL 

JC 

SET47 

RDERR 

RDH3: 

CALL 

H47INS 

;GET  THE  CONTROL  PORT  . 

ANI 

JZ 

DSTR+DSDONE+DSERR  ;WAiT  FOR  ANY  LINE  OF  INTEREST 

RDH3  ; NOTHING  YET  . 

ANI 

JNZ 

DSDONE+DSERR 

RDH4 

;LOOk  FOR  ERROR  OR  END  OF  SECTOR 

"CALL'' 

MOV 

H47IND 

M.A 

;GET  DATA  BYTE 

;SAVE  IT  . 

"iNtf 

JMP 

"H . 

RDH3 

;BUMP  MpWOftV  POINfEft 

RDH4: 

CALL 

H47INS 

; REREAD  IN  CASE  ERROR  WAS  LATE 

ANi . £>SERft . ;  If '  THERE  WAS  'HO'  ERROR 

RZ  ;  THEN  RETURN  .  . . 


RDERR:  . 

ER47:  '"MVT . A.DRS .  ;READ  DISK  SUBSYSTEM  STATUS 

CALL  WCD 

. CALL'  W4tfi . 

CALL  H47IND 


((((((((((( 


) 


) 
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STA 

ERRTYP 

;SAVE  ERROR  CODE 

LX  I 

H.H47MSG 

; PRINT  EXTENDED  ERROR  MSG 

CALL 

PRTERR  . 

CALL 

RESH47 

; RESET  THE  DISK  SUBSYSTEM 

"  MVI'  ‘ 
STA 

A.OPFH ' ' 
ERFLAG 

;flag  error  . 

RET'" 

'  ’  t)6 

H47KSG 

'M47\0 

WR47: 

PAGE 

MVI 

A,  DWR 

;D0  A  H47  BUFFERED  WRITE 

CALL 

JC 

Sfct4'? 

WRERR 

;D0  COMMON  SETUP 

CALL 

ANI 

DSERR 

; CHECK  ON  bisk  STATUS  . 

WRH3: 

JNZ 

CALL 

WRERR 

H47INS 

; CHECK  DISK  STATUS 

ANT 

JZ 

DSTR+DSDONE+DSERR  . . 

WRH3  ^ 

ART 

JNZ 

D5DUNL+DSERR 

WRH4 

MOV 

CALL 

A,  M 

H470UTD 

;  WRITE  OUT  THE  NEXT  BYTE . 

IRX" 

JMP 

W 

WRH3 

;BUMP  MEMORY  POINTER  . 

WRH4: 

CALL 

H47INS 

; REREAD  IN  CASE  ERROR  WAS  LATE 

ANI 

RZ 

DSERR 

WRERR: 

JMP 

ER47 

; PRINT  THE  ERROR  MESSAGE  AND  CODE 

PAGE 

1 

* 

SET47 

-  COMMON  H47  SETUP  FOR  READ/WRITE 

• 

CALL 

RC 

WCD 

5 WRITE  THE  COMMAND  IN  A  TO  DISK  CONTROLLER  . 

LHLD 

HSTDPB 

MOV 

RAR 

A,  rt 

;IF  LEAST  SIGNIFICANT  BIT  IS  1  THEN  DS 

*: 

TF 

DPE2S 

"END1F 

MVI 

DPE2S-1  . 

NE  1 

A  ,0 

STA 

LDA 

SIDE 

HSTTRK 

JNC 

RRC 

SET472 

'•DISK ' IS  SINGLE'  SIDED . 

; DIVIDE  TRACK  BY  TWO,  SIDE  INTO  MSB 

push . psw 
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ANI 

ST  A 

080H 

ST  DP 

POP 

ANT 

PSW 

07FH 

RC 

LHLD 

I  NX 

HSTDPB 

H 

LDA 

HSTSEC 

INR 

A 

;IBM  DISK  SECTORS  NUMBERED  1  TO  N 

ORA 

M 

:0R  IN  THE  . SELECTED  DRIVE . 

LXI  H.SIDE  . 

ORA 

M 

CALL 

RC 

WBD 

LXI 

H.HSTBUF 

.  RET 

• 

PAGE 
WCD  - 

WRITE  COMMAND 

TO 

t 

DISK  SHOULD 

BE 

"DONE"  TO  ACCEPT  A  NEW  COMMAND 

WCD: 

CALL 

RC 

W4D0NE 

;WAIT  UNITL  DONE  BEFORE  COMMANDING 
; ERROR  -  DONE  TIMEOUT  . 

CALL 

CALL 

H470UTD 

W4ND 

;$END  COMMAND 

RET 

• 

1 

• 

WBD  -  WRITE  BYTE  TO 

DISK  "  '  . 

• 

t 

A  BYTE  CAN  BE  SENT  WHEN  TR  IS  ASSERTED 

. WBD’:' '  ‘ ' 

'CALL ' ' ' 
RC 

W4TR 

CALL 

RET 

H470UTD 

. 

• 

• 

f 

• 

W4bONE 

-  WAIT  FOR  DONE  TO  BE  ASSERTED 

TIME  OUT  IN  ABOUT  4  SEC,  RETURN  WITH  C  SET 

W4D0NE: 

PUSH 

PSW 

'PUSH’" 

LXI 

B 

B , OFFFFH 

. W4D1 

'CALL'" 

ANI 

DSDONE 

;IS  IT  DONE  YET?  . 

Jnz 

DCX 

W4D2 

B 

;YES,  CLEAN  UP  AND  RETURN 

; DECREMENT  TIME  OUT  TIMER  . 

'MOV"" 

ORA 

A,B 

C 

;iS  IT  ZERO  YET? 

((((((  (  C  (  ( 


> 


) 
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JNZ 

. .  .yWp.T . ;.NP,.  WAIT.  A .  WHILE.  LONGER . 

POP 

POP 

B  ;TIME  OUT  -  RETURN  WITH  C  SET 

PSW 

STC  . 

RET 

W4D2: 

POP 

B 

POP 

ORA 

PSW 

A  ; CLEAR  CARRY 

RET  . 

* 

♦ 

* 

W4ND  - 

WAIT  FOR  NOT  DONE 

ttWfi:  PUSH 

W4ND1 :  CALL 

PSW 

H47INS 

AMI 

JNZ 

DSDONE 

W4ND1 

POP 

RET 

PSW 

; RETURN  AFTER  DONE  REMOVED 

• 

J  W4TR  - 

• 

t 

WAIT  FOR  TR  TO 

BE  ASSERTED 

W4TR:  PUSH 

PSW 

W4TK1:  CALL 
ANI 

WiN's 

DSDONE+DSTR 

I  GET  THE  DISK  STATUS 

j  i 

ANI 

W4TR1 

DSDONE 

JNZ 

POP 

W4TR2 

PSW 

ORA 

RET 

A 

W4TR2:  POP 

STC 

PSW 

RET  . 

PAGE 

H47INS:  IN 

78H 

; INPUT  STATUS  BYTE 

H47INS1  EQU 

RET 

$-1 

H470UTC:  OUT 

78H 

; OUTPUT  CONTROL  BYTE 

M470UTC1  EpO 
RET 

H47IND:  IN 

79H 

; INPUT  DATA  BYTE 

H47IND1  EQ'U 

RET 

4-1 

H470UTD:  OUT 

79H 

i OUTPUT  DATA  BYTE 

H470UTDT  EQ'U 

4-1 

RET 
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ENDIF 


PAGE 


( 


( 


)  )  )  )  '  )  )  )  )  ) 
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IF . .H67X . 

H67  DEVICE  DRIVER  MODULE . 04  .SEP  .8.1. 

JWTITT.SLER  /  .  WH,.  ?UMEX . 

HEATH/ZENITH  SOFTWARE  GROUP 

HILLTOP.  ROAD. . 

SAINT  JOSEPH,  MICHIGAN  49085 


H67pvp:.  JMP . SET67. . ; SELECT  .PI.SK .  ENTRY.  POINT 

JMP  RD67  ;READ 

. JMP . WR6.7 . ;WRITE . 

JMP  RESH67  ; RESET 

. XR  A  .  A . .!. .  RET  . !  .  NOP . iMOPNT . 

SET67: 

. XRA . A .  ;  1ST  SECTOR  WILL  BE  READ 

. STA . HSTSEC . .;.  (SECTOR  .# .  0  TO.  SPT-T). . 

LHLD  DPBX 

. MOV . A.M . 

ANI . DPETYPF . 

CPI  DPEH67F  ; CHECK  FOR  FLOPPY 

. JZ  . SET6.71 . ;BR,  IF  YES . . 

;  1ST  TIME  SELECTION . FOR . HARD . DISK. . 


LXI 

H.O 

J  READ  LABEL 

SHLD 

CALL 

HSTTRK 

RD67 

JNZ 

SET679 

;  BR  IF  ERROR 

CALL 

JNZ 

CHKLAB 

SET679 

; CHECK  CHECKSUM  OF  LABEL 
;  BR  IF  INCORRECT  CHECKSUM 

IF 

PARTITN 

LHLD 

DPBX 

; CHECK  IF  LABEL’S  BEGINNING  OF 

LXI 

.  .PAP. . . . 

B.DPETRK-DPEHTH 

. .  .8 . 

;  PARTITION  SECTOR  NUMBER  MATCHES 

.;...PRIYE.TAPL£’$ . 

CALL 

XCHG 

HLIHL 

LHLD 

CALL 

HSTBUF+LABHTH+DPETRK-DPEHTH 

CPHLDE 

JNZ 

SET679 

;BR  IF  NOT  —  PARTITION  HAS  BEEN  MOVED 

LHLD 

LXI 

DPBX 

B.DPEUPB-DPEHTH 

; CHECK  IF  LABEL’S  LAST  SECTOR  #  +  1 
;  OF  PARTITION  MATCHES 

DAD 

CALL 

B 

HLIHL 

;  DRIVE  TABLE’S 

.  XCHG 

LHLD 

HSTBUF+LABHTH+DPEUPB-DPEHTH 

CALL 

JNZ 

CPHLDE 

SET679 

;BR  IF  NOT  —  PARTITION  SIZE  HAS  CHANGED 
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ENDIF  . 

LHLD 

DPBX  ; UPDATE  CP/M  RECORDS  PER  ALLOCATION  BLOCK 

LX  I 

DAD 

B , DPERP AB-DPEHTH 

B  . 

LXI 

LDAX 

Df  HSTBUF+LABHTH+DPERP AB-DPEHTH 

D  . 

MOV 

M,  A 

.  Lhld 

LXI 

SETDSKC  ;  UPDATE  DISK  PARAMETER  BLOCK  VALUES 

B.DPEDPB 

DAD 

CALL 

B 

HLIHL 

Lxi 

MVI 

Mstbuf+labdpb 

C.DPBL 

CALL 

MOVEITX 

JMP 

SET674 

;  1ST  TIME  SELECTION  FOR  FLOPPY. 

SET67 1 : 


.  LHLD 

MOV 

DPBX 

A,M 

;GET  A DDR  OF  HEATH  EXTENSIONS  FOR  DRIVE 
;GET  DENSITY  FROM  TABLE 

. Alii' ' ' ' 

JZ 

DPEDD' . 

SET671A 

;  CURRENT  DENSITY  IS  SINGLE 

. MVI"" 

' AYHDFDEN . 

. 'DOUBLE  DENSITY' . 

. SET6Y1A: . 

STA 

SET67A 

; ASSUME  CURRENT  DENSITY 

.  CALL 

JNZ 

FDW 

SET679 

;SET  CURRENT  DENSitY/SiNGLE  SIDED 
;BR  IF  ERROR 

. LXI"" 

SHLD 

•HVt . 

HSTTRK 

. -TRY  '  READING  TRACK  1  SECTOR  'l 

JZ 

‘  RD67 . 

SET672 

;BR  IF  NOT  READ  ERROR 

LDA 

ERRTYP 

. CPI • •  ‘ 

JNZ 

"HDEIAM . 

SET679 

. j'CHECK  •  FOR  ’  ID  ADDS '  HANK '  NOT '  FOUND . 

;BR  IF  NOT 

. LXI " ' 

MOV 

"HVSET6TA . 

A,M 

. ;TRY  'OTHER'  DENSITY . . . 

MOV 

■ '  HDFDEN . 

M,A 

. CALL'  - 

CALL 

FDD67 . 

RD67 

. JSET  OTHER-  DENSITY/SINGLE  SIDED . 

; VERIFY  OTHER  DENSITY 

. JNZ 

SET679 . 

. ;  "BB'  IF  "NOT 

MOV 

h;set6ta . 

A.M 

MOV 

•  ’  HDFSID- . 

M,A 

. JTRY ’DOUBLE  -SIDED . 

. CALL’  • 

JNZ 

• • FDD67 . 

SET679 

. 1 SET ' DENSITY/ SIDE ’ DESCRIPTION . 

;BR  IF  ERROR 

((((((((((  C 


))})))))))) 
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. CALL . RD67 .  ;TRY  .READING  2ND  SIDE 

JZ  SET67 3 . ; BR '  IF  ’  NO  ’  R E AD '  ERROR . 

LDA  ERRTYP 

CPI  HDEDNR  ' '  j  CHECK'  FOR  DR IVE  NOT  'READY . 

JNZ  SET679  ;BR  IF  NOT 

LXI  '  H,  SET67A . 

. MOV . A,M . 

"  ANI . OFFH-HDFSID . ‘BACK  OFF  TO  SINGLE '  SIDED . 

. MOV . M*A . 

SET673.:  LDA . SET67A . 

MOV  B,A 

. ADD . A .  ;*2 . 

ADD  B  ;*3 

.  ADD  .  A  ;*6 

ADD  B . ;»7 . 

. LXI . H.H67PMS . 

CALL  DADA  ;HL  =  AD DR  OF  SPECIFIC  DISK  TYPE  VALUES  ' 

. XCHG .  ;DE  NO  POINTS  TO  PARAMETERS  FOR  THIS  DISK 

LHLD  '  * '  SETDSKC . ';HL '  POINTS  TO  DPE  FOR'  THIS  DRIVE . 

. LDAX  D . -UPDATE  ‘XLATE'  TABLE  ADDR . 

. MOV . M ,  A . 

INX . D 

. INX  H 

LDAX . D . 

. . MOV  .  MtA 

INX  D  . 

. LXI  B,DPEDPB-1  ;BUMP  HL  TO  POINT  TO  DPB  POINTER 

DAD  B 

. LDAX . D_  .  ;NOW  SET  UP  NEW  DPB  POINTER 

MOV  M,A 

INX  D 

. ±NX . H . 

LDAX  D 

. MOV . M,  A . 

LHLD  DPBX  ;GET  POINTER  TO  DRIVE  SPECIFIC  VALUES 

. XCHG . ;  (DEV=  DRIVE  SPECiFIC  'VALUES  POINTER . 

;(HL)=H67  DISK  DESCRIPTORS  POINTER 

. INX . H . 

LDAX  D 

. ani . 6ffh-dpee)d-dpe2s . 

ORA  M 

. STAX . D . jUPDAT E'  DENSITY/SIDE  FLAGS . 

INX  D 

. INX . b . 

INX  H 

. mov . a;m . 

STAX  D  ; RECORDS  PER  SECTOR 

. INX . H . 

INX  D 

. MOV . A,M . 

STAX  D  ; RECORDS  PER  ALLOCATION 


LDA  SET67A 
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CALL  FDD67  ;SET  CORRECT  DENSITY/SIDE  DESCRIPTION 

. m . SET67.9 . .;-BR .  IE .  ERROR . 

SET674: . . . . 

XRA  A  INDICATE  NO  ERRORS 

. RET . 

.SEI.6.79;.  .5TC. . ^INDICATE  .ERROR . . 

RET 


;  DISK  DESCRIPTORS 


;  DW 

;  DW 

&XLATE$TABLE 
. AP.ARAMS  BLOCK . . 

; POINTER  TO  TRANSLATE  TABLE 

. . POINTER  .TO.  .PARAMETER  .BLOCK . . 

;  DB 

:  db 

DENSITY  AND  SIDES 

RECORDS$PER$SPCTQR  . 

;  DB 

RECORDS$PER$ALLOCATION 

H67PMS:  DW 

DB 

XLTOS.DPBOSS 
0,1,8  . 

; SINGLE  DENSITY/ SINGLE  SIDED 

DW 

XLTO§, DP^OSD 

. SINGLE.  .PENSITY/.DQVBLE.  SIDED. . 

DB 

DPE2S, 1,16 

DW 

DB 

XL TOD , DPBODS 
DPEDD,2,16 

; DOUBLE  DENSITY/ SINGLE  SIDED 

DW 

XLTOD .DPBODD 

;  DOUBLE  DENSITY/D01JBLJ5;  .SIP.ED . 

DB 

DPEDD+DPE2S , 2 , 

16 

SET67A:  DS 

1 

; DENSITY/SIDE  DESCRIPTION  VALUE 

PAGE 

•* 

;  RESET  H67 
•• 

CONTROLLER.. 

RESH67:  MVI 

A.HDFRES 

CALL 

XRA 

H670UTC 

A 

CALL 

RET 

H670UTC 

;  RECALIBRATE  HEAD. 


. ftCL’67  V '  MVI 

STA 

A,HDCRCL 

CMDBUF+HDOOP 

CALL 

MVI 

SETUP3 

A*  1 

; INDICATE  DON'T  DO  RS  ON  ERROR  . 

. ST  A' 

JMP 

RS67B 

CMPSTAT 

PAGE  . 

(  (  (  (  (  (  (  (  (  ( 


)))))) 
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; . .  READ.  SENSE  .BYTES.. . 

1 . ENTRY:..  COMMAND  BUFFER. ALREADY. CONTAINS  UNIT  SELECT  VALUE 

{  EXIT:  4  SENSE  BYTES  ARE  AT  ' RS67A’ 

; . !E.R.RTTP'.  CONTAINS  ERROR  TYPE  &  CODE 

;  (A)  CONTAINS  ERROR  TYPE  A  CODE . 

:  USES:  ALL 


RS67: 

MVI 

STA 

A.HDCRS 

CMDBUF+HDOOP 

XRA 

STA 

A 

CMDBUF+HDOCON 

CALL 

.  .hyi . 

SETUP3 

.  .  Am  i . 

; INDICATE  DON’T  DO  RS  IF  ERROR 

STA 

LXI 

RS67B 

H1RS67A 

MVI 

m,6 

IF 

MV* 

H67BLKIO 
..A, 4 . 

{NUMBER  OF  BYTES  TO  READ 

STA 

ENDIF 

RD673 

;  MODIFY  COUNT  INSTRUCTION  . 

CALL 

RD671 

MVI 

JNZ 

A.0 

RS67T 

{ASSUME  NO  STATUS  IN  CASE  OF  ERROR  ON  RS  . 

.  RS671: 

LDA 

ANI 

RS67A 

HDSET+HDSEC 

STA 

RET 

ERRTYP 

.  .DS . 

..4 . . 

RS67B 

DS 

1 

• 

PAGE 

♦ 

» 

• 

FLOPPY  DISK  DESCRIPTION.  . 

« 

1 

• 

ENTRY: 

...EXIT;... 

(A)  =  TRACK  FORMAT  CODE  . 

o. IF. ERROR 

A 

f 

• 

=  1  IF  NO  ERROR  . 

EXIT  VIA  ' CMPSTAT' 

• 

T 

USES: 

ALL  " *  . 

. FP.D67:  STA 

CMDBUF+HD6TFC 

LHLD 
. . .  INX 

H 

MOV 

STA 

CMDBUF+HD6LUN 

MVI 

STA 

CMDBUF+HD60P 

CALL 

JMP 

CMPSTAT 
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PAGE  . 

f 

READ  SECTOR. 

• 

t 

• 

ENTRY: 

(HSTDPB)  =  ADDR  OF  DPE  HEATH  EXTENSIONS  FOR  DRIVE 

» 

. 

(HSTTRK)  a  TRACK 

(HSTSEC)  =  SECTOR  (0  TO  SPT-1)  . 

• 

• 

• 

exit: 

PSW/Z  a  0  IF  ERROR 

a  1  IF  NO  ERROR 

• 

' E REFLAG1  =  6  IF  NO  ERROR 
<>  0  IF  ERROR 

* 

• 

• 

USES: 

*  HSTBUF’  CONTAINS  SECTOR 

ALL 

RD67: 

MVI 

CALL 

A.HDCRD 

SETUP 

;  READ  COMMAND 

; SETUP  COMMAND  BUFFER,  GET  ATTENTION,  SEND  CMD 

RNZ 

LXI 

H, HSTBUF 

;  RET  IF  ERROR 
; POINTER  TO  DATA  STORAGE 

"IF . 

MVI 

H67BLKIO 

A, 128 

; BLOCK  COUNT 

STA 

ENDIF 

RD673 

;  MODIFY  COUNT  INSTRUCTION 

;  LOW 

LEVEL  I/O  READ  ROUTINE 

• 

;  ENTRY:  (HL)=BUFFER  ADDRESS 

;  USES:  ALL  . 

IF 

H67BLKIO 

RD67 1 : 

LDA 

H67IND1 

;GET  DATA  INPUT  PORT  if 

RD672: 

MOV  ‘  ' 

CALL 

"c;a . 

H67INS 

;GET  THE  BUS  STATUS 

ANA' 

IF 

"A""  ;LOOK  FOR  REQ 

HDBREQ-10000000B 

. %: . 

'  'HDBREQ' 
ENDIF 

NE '  1 0000000B 

' '  JP . 

ANI 

'  RD672 . 

HDBCMD 

; CHECK  FOR  COMPLETION 

■  •  jnz 

MVI 

"CmP'S'TAT 

B»0 

; BLOCK  COUNT 

. RD673" 

EQU 

DB 

'  '$-'1 

0EDH.0B2H 

;  (MODIFIED  BY  CALLING  ROUTiNE) 

;D0  BLOCK  INPUT 

* '  JNP  ' 

"RD672 . 

. RD67V:* 

■'CALL'" 

ANA 

'  'H67TNS 

A 

;GET  THE  BOS  STATUS 
;LOOK  FOR  REQ 

X: 

IF . 

HDBREQ 

‘HDBkEQ^TOOOODOOB  . 

NE  10000000B 

"ENDIF" 

JP 

RD671 

<((((((((<( 


)))))))))) 
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ANI 

JNZ 

HDBCMD 

CMPSTAT 

; CHECK  FOR  COMPLETION 

CALL 

MOV 

HfcfiND 
M,  A 

; INPUT  DATA  FROM  THE  CONTROLLER 
; STORE  IT  IN  THE  HOST  BUFFER 

. rwx" 

JMP 

“’‘ft . 

RD671 

ENDIF 

PAGE 

• 

f 

• 

f 

WRITE  SECTOR. 

■ 

f 

« 

f 

ENTRY: 

(HSTDPB)  = 

ADDR 

OF  DPE  HEATH  EXTENSIONS  FOR  DRIVE 

* 

• 

• 

t 

(HSTTRK)  = 
(HSTSEC)  = 

TRACK 

SECTOR  (0  TO  SPT-1 ) 

• 

9 

9 

EXIT: 

PSW/Z  =  0 

1 

IF 

IF 

ERROR 

NO  ERROR 

• 

• 

9 

’ERFLAG*  = 

<> 

6 

0 

IF 

IF 

NO  ERROR 

ERROR 

> 

♦ 

9 

USES: 

DATA  AT  ’ HSTBUF1 
ALL 

WRITTEN 

WR<>7  l 

MVI 

CALL 

A,HDCWR 

SETUP 

WRITE  COMMAND 

SETUP  COMMAND  BUFFER,  GET  ATTENTION,  SEND  CMP 

RNZ 

LX  I 

H, HSTBUF 

RET  IF  ERROR 

POINTER  TO  DATA  SOURCE 

IF 

H67BLKIO 

WR671: 

LDA 

H670UTD1 

;GET  OUTPUT  DATA  PORT  # 

WR672: 

MOV 

CALL 

C*  A 

H67INS 

;GET  THE  BU?  STATUS 

ANA 

IF 

A 

HDBREQ- 10000000B 

;LOOK  FOR  REQ 

*: 

HDBREQ 

ENDIF 

ne  ioooodooB 

JP 

ANI 

WR672 

HDBCMD 

; CHECK  FOR  COMPLETION 

JNZ 

MVI 

CMPSTAT 

B,  128 

; 128  BYTE  BLOCK 

DB 

JMP 

0EDH.0B3H 

WR672 

;D0  BLOCK  OUTPUT 

ELSE 

WR671: 

CALL 

H67INS 

;GET  THE  BUS  STATUS 

ANA 

IF 

A 

HDBREQ- 10000000B 

;WAIT  FOR  REQ 

i: 

HDBREQ 

ENDIF 

NE  10000000B 

JP 

ANI 

WR671 

HDBCMD 

; CHECK  FOR  COMPLETION 

JN'Z 

MOV 

CMPSTAT 

A,M 

;GET  THE  NEXT  BYTE 

GET  THE  NEXT  BYTE 
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CALL  H670UTD  ;SEND  IT  TO  THE  DISK 

INX  ....  H  . 

JMP  WR671 


ENDIF 


PAGE 


;  CHECK  COMPLETION  STATUS. 

• 

; . EXIT: ' '  PSW/Z  '=’ 0  ' IF  ERROR . 

;  r  1  IF  NO  ERROR 

V . '  ERFLAG 1  '  ="6 '  IF  NO  ERROR 

•  <>  0  IF  ERROR 

: . USES:'' ALL . . 


CMPSTAT:  CALL  H67IND  ; INPUT  THE  COMPLETION  STATUS 


MOV 

Ct  A 

;SAVE  TEMPORARILY 

LREQ: 

CALL 

H67INS 

;WAIT  FOR  LAST  REQ 

ANA 

A 

;r£q? 

IF 

HDBREQ- 10000000B 

%i  ' 

HDBREQ 

ENDIF 

NE  1 OOOOOOOB 

JP 

LREQ 

;NOT  YET 

MOV 

B,  A 

;SAVE  FOR  CHECKING  LATER 

CALL 

HfeTTND 

;GET  LAST  BYTE 

El . ;"ALLOW  INTERRUPTS  AGAIN 


ORA 

MV  I 

"A . 

A,80H 

;  SHOULD  BE  A  BYTE  OF  ZERO'S 
;ERROR  CODE 

.  JNZ 

h6Te!R 

;  6R  iF  ERROR 

. MOV  ’ -  ‘ 

ANI 

•"AfB . 

HDBPE 

; CHECK  FOR  PARITY  ERROR  ON  BUS 

. MVT  ’  ’ ' 

JNZ 

••'h;8th . 

H67ER 

"TERROR  CODE . 

;  BR  IF  ERROR 

MOV 

A,C 

;GET  THE  COMPLETION  BYTE 

. ANT  ‘ ' ' 

RZ 

• '  "HDFERR+HDFPE" ' ' 

' '  TCHECK  "COMPLETION"  "STATUS . 

;  RET  IF  NO  ERRORS 

ANI 

HDFERR 

; CHECK  IF  I/O  ERROR  OR  BAD  PARITY 

. MVT  ' ' ’ 

JZ 

■"a;82H 

H67ER 

';•£  RR'OR '  CODE  *  FOR  BAD '  PA  RITY  " ' 

;  BR  IF  NOT  I/O  ERROR 

LDA 

RS67B 

; CHECK  IF  ERROR  DURING  REQUEST  SENSE 

ANA 

RNZ 

"A . 

;  IF  YES  —  THEN  DON’T  TRY  ANOTHER 

CALL 

RS67 

;D0  A  REQUEST  SENSE  TO  GET  ERROR  CODE 

H67ER:  STA 

ERRTYP 

;SAVE  ERROR  CODE 

CPI 

HDEWF 

; CHECK  FOR  WRITE  FAULT 

((.((((((( 


)>))))))) 
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CZ 

RCL67 

;  IF  YES  —  RECALIBRATE  HEAD  TO  CLEAR  ERROR 

LXI 

CALL 

H,H67MSG 

PRTERR 

; PRINT  EXTENDED  ERROR  MESSAGE 

ORI 

OFFH 

; INDICATE  ERROR 

STA 

RET 

ERFLAG 

H67MSG 

DB 

’H67’  ,0 

PAGE 

SETUP: 

LXI 

MOV 

H,  CMDBUF 

M,  A 

; POINTER  TO  THE  COMMAND  BUFFER 
;SAVE  COMMAND  IN  BUFFER  STRING 

INX 

XCHG 

H 

; POINT  TO  LOGICAL  UNIT  SLOT 
; (DE)= COMMAND  BUFFER  POINTER 

LHLD 

INX 

HSTDPB 

H 

;GET  UNIT  SELECT  VALUE 

MOV 

STAX 

A,M 

D 

; PLACE  IT  IN  COMMAND  BUFFER 

INX 

PUSH 

D 

D 

; BUMP  COMMAND  BUFFER  POINTER 

;SAVE  COMMAND  BUFFER  POINTER  FOR  LATER 

.  COMPUTE  LOGICAL.  SECTOR  NUMBER. 


LHLD 

MOV 

HSTTRK 

D,  H 

; START  WITH  CP/M  TRACK  # 

MOV 

DAD 

E,L 

H 

.5*2 . 

DAD 

DAD 

D 

H 

;*3 

;«6 

DAD 

DAD 

H 

D 

;*i2 

;*i3 

DAD 

IF 

H 

NSPT67-26 

;*26 

%:  NSPT67  NE  26 

ENDIF 

LDA 

CALL 

HSTSEC 

DADA 

; SECTORS  NUMBERED  0  TO  SPT-1 

;HL  IS  NOW  THE  LOGICAL  SECTOR  NUMBER 

XCHG 

LHLD 

HSTDPB 

;NOW  DE  IS 

;ADD  TRACK  0  OFFSET 

LXI 

DAD 

B.DPETRK-DPEHTH 

B 

CALL 

XCHG 

HLIHL 

;(HL)  =  TRACK  0  OFFSET 
; (DE)  =  TRACK  0  OFFSET 

DAD 

D 

; (HL)  =  LOGICAL  SECTOR  # 

;  CHECK  IF  WITHIN  PARTITION  BOUNDARIES. 

MOV 

ORA 

A,D 

E 

JZ 

SETUP2 

;BR  IF  FLOPPY  OR  NOT  IN  PART ±T ION  MODE 
;  (ASSUMED  IF  TRACK  0  OFFSET  =  0) 

CALL 

CPHLDE 

; CHECK  LOGICAL  SECTOR  #  AGAINST 

JC 

SETUP9 

;  BEGINNING  OF  PARTITION 
;  BR  IF  BEFORE 
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. XCHG . . 

,;(DE.). LOGICAL.  SECTOR  .# . 

LHLD 

. LXI... 

HSTDPB 

. . .  B » P.PE  0 P.BrP  PE  HTft 

;GET  LAST  SECTOR  #  +  1  OF  PARTITION 

DAD 

. CALL... 

XCHG 

B 

. .  WL.IHL . 

; (DE)  =  LAST  SECTOR  #  +  1  OF  PARTITION 
; (HL)  =  LOGICAL  SECTOR  # 

CALL 

. m.... 

CPHLDE 

SPTUP9 

;  BR  IF  AFTER  PARTITION 

. SETUP2:. X.CHG  . 

; (DE)  =  LOGICAL  SECTOR  NUMBER 

. ..PUT  LOGICAL  SECTOR  NUMBER  INTO  COMMAND  BUFFER 

POP 

. M.QY . . . . 

I  NX 

. MP.Y . . . . 

INX 

MVI 

H 

.  .M.,.D . 

H 

, .  .M,R . 

H 

. .  M, .! . 

FIRST . 

; 1  BLOCK 

INX 

MVI 

H 

M.O 

;0  THE  CONTROL  BYTE 

. .  .SEND  .COMMANP  TO  H67  CONTROLLER, 

. S.ETUP3; . 

XRA 

STA 

A 

RS67B 

; INDICATE  DO  RS  ON  ERROR 

LXI 

. 

;INIT  TIMEOUT  COUNTER 

GETCON:  CALL 

H67INS 

;GET  THE  STATUS 

ANI 

JZ 

HDBBSY 

SETUP3A 

;IF  NOT  BUSY 
;  THEN  GO  AHEAD 

DCX 

MOV 

D 

A,D 

; CHECK  TIMEOUT  COUNTER 

ORA 

JZ 

E 

SETUP8 

;  BR  IF  TIMEOUT 

JMP 

GETCON 

'SET0P3A: 

MVI 

A,HDFSEL 

; ASSERT  SEL  AND  DATAO 

CALL 

H670UTC 

LXI 

D,-1 

; INIT  TIMEOUT  COUNTER 

cBusY:  CALL 
ANI 

Hfc'7iNS 

HDBBSY 

;IF  BUSY 

JNZ 

DCX 

SETUP3B 

D 

;  THEN-  WE  GOT  ItS  'ATTENTION 

MOV 

ORA 

A,D 

E- 

; CHECK  TIMEOUT  COUNTER 

J  t 

JMP 

SeTupB 

CBUSY 

;  HR  IF  tIMEOOT'  * 

SETUP3B: 


<((((((((( 
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DI 

{DON'T  WANT  TO  BE  BOTHERED 

MVI 

CALL 

A.HDFDE  ;DATA  ENABLE 

H670UTC 

LXI 

OUTCOM:  CALL 

H, CMDBUF 

H67INS 

ANI 

IF 

HDBREQ+HDBCMD+HDBIO 

HDBREQ- 10000000B 

t: 

HDBREQ 

ENDIF 

NE  10000000B 

JP 

CPI 

OUTCOM  {WAIT  FOR  REQ 

HDBREQ+HDBCMD+HDBIO  ; CHECK  FOR  REQ/CMD/ OUTPUT 

JNZ 

MOV 

SETUP* 

AtM  ;GET  NEXT  BYTE  OF  COMMAND 

UIL 

I  NX 

H670UTD 

H 

Siv 

JMP 

UP4:  xra 

OUTCOM 

A  ; INDICATE  NO  ERROR  IN  SETUP 

RET 

;  ERROR  IN  SETUP  DUE  TO  'TIMEOUT. 

SETUP8 :  MVI  A,84H  : ERROR  CODE 

JMP 

H67ER  ;HANDLE  ERROR 

;  ERROR  IN  SETUP  DUE  TO  OUT  OF  BOUNDS  CONDITION. 

SETUP9 :  POP  H  ; DISCARD  COMMAND  BUFFER  POINTER 

MVI 

JMP 

A,83H  ; ERROR  CODE 

H67ER  ; HANDLE  ERROR 

PAGE 


* 

\  PRIMITIVE 

H67  I/O 

PORT  ROUTINES. 

♦ 

H670UTD:  OUT 

0 

{OUTPUT  TO  DATA  PORT 

H670UTD1  EQU 

$-1 

RET 

H67IND:  IN 

0 

{ INPUT  FROM  DATA  PORT 

H67INDI  EQU 

...A-l., 

RET 

H670UTC:  OUT 

0 

; OUTPUT  TO  CONTROL  PORT 

H670UTC1  EQU 

$-1 

RET 

H67INS:  IN 

0 

{INPUT  FROM  BUS  STATUS  PORT 

H67IHS1  EQU  . 

$-1 

RET 


{  H67  COMMAND 

BUFFER 

CMDBUF:  DB 

0 

; OPCODE 

DB 

0 

{LUN  1  LOG  ADR 2 

DB 

0 

{LOG  ADR1 

DB 

0 

{LOG  ADRO  . 

DB 

1 

{NUMBER  OF  BLOCKS 

DB  0  ; CONTROL  BYTE 


ENDIF 

PAGE 
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07FA  C30908  NULDVD: 

JMP 

SETNUL 

07FD  C30908 

JMP 

RDNUL 

0800  C30908 

JMP 

WRNUL 

0803  C  36908’ 

’  W  ' '  ‘ 

RESNUL 

0806  C30908 

JMP 

MNTNUL 

SETNUL: 

RDNUL:' 

WRNUL: 


RESNUL: 

MNTNUL: 


0809  3EFF 

MVI 

a;offh 

080B  322A0E 

STA 

ERFLAG 

. O'SOfc  3? 

. STC  ' ' ' 

080F  C9 

RET 

PAGE 
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;  2  MS 

CLOCK 

INTERRUPT  SERVICE 

ROUTINE 

IF 

TOD 

NDAYS 

DO 

31 »?8 . 31 . 30 .31 » 

30. 31. 31, 3D..  31, 30. 3.1 . 

ENDIF 

0810  OOOOOOOOOOTODVAL 

DB 

0.0. 0.0. O.Q 

;TIME  OF  .  DAY  .  (SEC .  (D-r59J. . , . 

•  MIN  [0-59]  ,  HRS  [0-23] i  DAY[ 1-N]  . 

;  MON  [1-12]  .,  YR  lQn-2551) . 

0816  0000 

EVTCTR 

DW 

0 

; EVENT  DOWN  COUNTER 

. .  .0818.  O.Q  . . 

DLYMO ; 

DB 

0 

0819  00 

DLYH : 

DB 

6 

081A  00 

DLYW: 

DB 

0 

0813  22A70E 

CLOCK: 

SHLD 

HSAV 

;SAYE  AF.HL . 

08 IE  El 

POP 

H 

;GET  THE  RETURN  ADDRESS 

081F  22A90E 

SHLD 

RETSAV 

. ; SAVE.  XT. .  BUT.  NOT.  ON  .USER . STACK . 

0822  F5 

PUSH 

PSW 

5  SAVE  AF,  HL 

0823  210D00 

LX  I 

H, CTLPRT 

;GET  THE  CURRENT  VALUE  OF  THE  CONTROL  PORT 

0826  7E 

MQV 

A.M 

0827  D3F2 

OUT 

H88CTL 

; AND  OUTPUT  AGAIN,  RESETTING  INT  REQ 

0829  23 

I  NX 

H 

; POINT  TO  THE  H8FLAG 

082A  7E 

MOV 

A.M 

082B  B7 

ORA 

A 

;IF  0  THEN  RUNNING  IN  H/Z89 

082C  CA3108 

JZ 

CLKO 

;  THEN.  .DON.\T .  OUTPUT.  .TO.  .360Q . 

082F  D3F0 

OUT 

H8CTL 

;  ELSE  CONTAINS  H8TR  TO  RESET  H8  CLOCK 

0831  2A0B00 

CLKO: 

LHLD 

TICCNT 

;GET  THE  TICK  COUNTER 

0834  23 

I  NX 

...» . 

.  INCREMENT.  IT . 

0835  220B00 

SHLD 

TICCNT 

0838  7D 

MOV 

A,  L 

; IS  IT  A  MULTIPLE  OF  1/2  SECOND? 

. Q839.P.7  . 

OP  A 

A 

083A  C26708 

JNZ 

CLKRET 

;  IF  NOT 

IF 

TOD 

MOV 

A,H 

; IS  .IT.  A  MULTIPLE .  OF. .  1 .  SECOND? . 

RAR 

.  JC. . . . . 

. .  .CLK1 . 

..;.BR  .IF. NOT . 

LX  I 

H.TODVAL 

JHANDLE  TIME  OF  DAY 

INR 

M 

. .SECONDS . 

MOV 

A.M 

CPI 

60 

JC 

CLK1 

MVI 

M,0 

I  NX 

H 

;  MINUTES 

INR 

M 

MOV 

A.M 

.  CP I . . 

..6P . 

JC 

CLK1 

MVI 

Mt0 

I  NX 

H 

;  HOURS 

INR 

M 
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MOV  A,M 

CPI . 2.4 . 

JC  CLK1 

MY  I . W,0 . 

I NX  H  :  DAYS 

m . h . 

MOV  A,M 

LXI  H.NDA.YS'r.l . 

ADD  L 

MOV  L,A 

MOV  A,H 

ACI  0 

MOV  H, A 

MOV  A,M  . 

LXI  H.TODVAL+3 

INR  ....  M . 

CMP  M 

JNC  CLK1 

MVI . Mf*1 

INX  H  ;  MONTHS 

INR . M . 

MOV . A,M . 

CPI  13 

JC  CLK1 

'mvi . mVi . 

INX  H  ;  YEARS 

INR . M . 

ENDIF 


CLK1 : 


IF  EVENT 

LHLD . EVTCTR . *  DOWN '  COUNT  EVENT  '  COUNTER  '  IF  <> '  0 

MOV  A,H 

ORA . L . 

JZ  CLK2 

D'CX . H . 

SHLD  EVTCTR 

ENDIF . 


CLK2: 


083D  211808 

IF 

LXI 

H17T 

H,DLYMO 

; POINTER  TO  MOTOR  DELAY  TIMER 

0840  7E 

MOV 

A,M 

0841  B7 

ORA 

A 

;IF  ALREADY  ZERO 

0842  CA6708 

JZ 

CLK4 

;  THEN  DON'T  DECREMENT 

0845  35 

DCR 

M 

; DECREME NT  TiMER 

0846  C25308 

JNZ 

CLK3 

;  IF  IT  HAS  NOT  TIMED  OUT  CHECK  HEADS 

0849  3AQF00 

LDA 

DEVCTL 

;GET  THE  CURRENT  VALUE  OF  CONTROL  PORT 

084C  E6EF 

ANI 

OFFH-DFMO 

;TURN  OFF  MOTOR 

084E  320FOO 

STA 

DEVCTL 

0851  D37F 

OUT 

DPDC 

(.((((<((((< 


) 
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0853  23 

CLK3: 

I  NX 

H 

{POINT  TO  THE  HEAD  DELAY 

0854  7E 

.  0855  B7 

MOV 

ORA 

A,M 

A 

{IF  ALREADY  ZERO 

0856  CA6708 

JZ 

CLK4 

{  THEN  DON’T  DECREMENT 

0859  35 

085 A  C26708 

DCR 

JNZ 

M 

CLK4 

{DECREMENT  TIMER 

{  IF  IT  HAS  NOT  TIMED  OUT  THEN  SKIP 

085D  3A0F00 

LDA 

DEVCTL 

.  {DESELECT  THE  DRIVE 

0860  E6F1 

086?  320F00 

ANI 

.  STA _ 

OFFH-UO-U1-U2 

..PEy.CTl . 

0865  D37F 

OUT 

ENDIF 

DPDC 

CLK4: 

IF 

LXI 

H37T 

H, DLYM037 

‘{POINTER  TO  MOTOR  DELAY  TIME  FOR  H37 

MOV 

ORA 

A,M 

A 

{IF  ALREADY  ZERO 

JZ 

CLKRET 

{  THEN  DON'T  DECREMENT 

DCR 

JNZ 

M 

CLK5 

{DECREMENT  TIMER 

;  IF  IT  HAS  NOT  TIMED  OUT  CHECK  HEADS 

LDA 

H37CTL 

{GET  THE  CURRENT  VALUE  OF  CONTROL  PORT 

ANI 

STA 

OFFH-CONMO 

H37CTL 

{TURN  OFF  MOTOR 

OUT 

FD$CON 

CLK5: 

INX 

MOV 

H 

A,M 

{POINT  TO  THE  HEAD  DELAY  FOR  H37 

ORA 

JZ 

A 

CLKRET 

{IF  ALREADY  ZERO 
{  THEN  DON'T  DECREMENT 

DCR 

M 

{DECREMENT  TIMER 

JNZ 

CLKRET 

{  IF  IT  HAS  NOT  TIMED  OUT  THEN  SKIP 

LDA 

ANI 

H37CTL  ; DESELECT  THE  DRIVE 

OFFH-CONDSO-CONDS1-CONDS2-CONDS3 

STA 

OUT 

H37CTL 

FD$CON 

ENDIF 

0867  3AOBOO 

086 A  IF 

CLKRET: 

LDA 

RAR 

TICCNT 

;IS  IT  EVEN,  MAKING  4MS  BIG  TICKS 

086B  DA7708 
086E  211A08 

JC 

LXI 

CLKR2 

H.DLYW 

{CHECK  WAIT  TIMER 

0871  7E 

0872  B7 

MOV 

ORA 

A,M 

A 

{  AND  DECREMENT  IT  IF  IT  IS  NOT 
;  ALREADY  ZERO 

0873  CA7708 
0876  35 

JZ 

DCR 

CLKR2 

M 

0877  FI 

0878  2AA90E 

CLKR2: 

POP 

LHLD 

PSW 

RETSAV 

{RESTORE  THE  MACHINE  STATE 

08'7B  E5 

087C  2AA70E 

PUSH 

LHLD 

H 

HSAV 

0&7F  fb 

El 
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0880  C9  RET 
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• 

1 

• 

CHKLAB  —  CHECK  CHECKSUM  OF  LABEL  . 

• 

9 

• 

ENTRY:  * HSTBUF ’  CONTAINS  SECTOR  WITH  LABEL 

EXIT:  PSW/Z  =  0  IF  BAD  CHECKSUM 

• 

f 

■ 

=  1  IF  GOOD  CHECKSUM  . 

USES:  A,F,B,H,L 

♦ 

0881  AF 

CHKLAB:  . 

XRA  A  ;ZERO  ACCUM 

0882  0619 

0884  21380C 

MVI  B.LABLEN  ;GET  LENGTH  OF  LABEL 

LXI  H, HSTBUF+LABEL 

CHKLAB1 : 

0887  86 

0888  23 

ADD  M  ;ADD  VALUES  . 

INX  H 

0889  05 

088A  C28708 

JNZ  CHKLAB 1 

088 D  3C 

INR  A  ;INR  CHECKSUM  VALUE  AND  SET/RESET  PSW/Z 

088E  C9 

RET 

t 

• 

♦ 

♦ 

CPHLDE  -  COMPARE  (HL)  TO  (DE)  . 

USES  A,F 

088F  7C 

MOV  A,H 

0890  BA 

0891  CO 

CMP  D  . 

RNZ 

0892  7D 

0893  BB 

MOV  A,L  . 

CMP  E 

0894  t'9 

• 

9 

• 

• 

♦ 

t 

DAb'A'  -  ADD  O', A  TO  HL  . : . 

USES  AF 

0895  85 

DADA:  ADD  L 

0896  6F 

0897  DO 

MOV  L,A  . 

RNC 

0898  24 

0899  C9 

INR  H  . 

RET 

t 

• 

t 

GETDPE  —  GET  ADDRESS  OF  DPE 

• 

9 

♦ 

i 

ENTRY:  (A)  =  LOGICAL/MAPPED  DRIVE  # 

• 

1 

• 

9 

EXIT:  (HD  =  ADDRESS  OF  DPE' . 

USES:  AtFf D,E,H,L 

t 

089A  E60F 

UETDPE :  . 

ANI  OFH  ;GET  MAPPED  DRIVE  # 
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089C  6F 

MOV  L, A 

;FIND  DPE  ADDR 

089D  2600 

. 0&9F.5.4 . 

MV I  H,0 

MOV  D„H 

08AO  5D 

. 0.8A3.29 . 

MOV  E,L 

. PAP. . H . 

. .;•? . 

08 A2  19 

. 08A3 .29 . 

DAD  D 

. PAP . B . 

;*3 

. ;»6 . 

08A4  29 

. P.8A5. 29 . 

DAD  H 

DAD  H 

;*i2 

;»24 

IF  DPEL-24 

DPEL  NE  24 

ENDIF 

08A6  114EOO 
08A9  19 

LXI  DtDPBASE 

DAD  D 

08AA  C'9 

RET 

• 

• 

• 

GETDPEX  —  GET  ADDR  OF  DPE'S  HEATH  EXTENSIONS 

• 

* 

• 

ENTRY:  (A)  =  LOGICAL/MAPPED  DRIVE  # 

EXIT:  (HL)  =  ADDR  OF  HEATH  EXTENSIONS 

• 

t 

♦ 

USES:  A,F,D,EfH,L 

GETDPEX: 

08AB  CD9A08 

CALL  GETDPE 

;GET  ADDR  OF  DPE 

08AE  111000 
08B1  19 

LXI  Df DPEHTH 

DAD  D 

;GET  ADDR  OF  HEATH  EXTENSION'S' 

08B2  C9 

RET 

• 

t 

i 

HLIHL  -  LOAD  HL  INDIRECT 
USES  AF 

THROUGH  HL 

08B3  7E 

HLIHL:  MOV  A,M 

08B4  23 

08B5  66 

INX  H 

MOV  H,M 

08B6  6F 

08B7  C9 

MOV  L.A 

RET 

‘ '  MOVE  IT  X '  — '  MOVE  '  DATA  ‘  FROM '  ONE '  AREA'  OF  '  MEMORY'  'f  O'  ANOTHER 

• . ENTRY :  ( CV  =  COUNT . 

;  (DE)  =  SOURCE 

. (Hi)'  '= '  DESTiNAf  ION . 

;  USES:  ALL 


MOVEITX:  . 

08B8  EB  XCHG  ;(HL)=SOURCE  (DE)=DESTINATION 


(  ■  (  (  (  (  (  (  (  (  (  < 
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. .IF! . MJOVEIT . 

%:  MOVE IT  MUST  IMMEDIATELY  FOLLOW  MOVEITX 

. END.IF . 


;  MOVE IT  —  MOVE  DATA  FROM  ONE  AREA  OF  MEMORY  TO  ANOTHER 


ENTRY:  (C)  =  COUNT 

. (DE) . =  DESTINATION 

(HL)  =  SOURCE 
USES:  ALL 


08B9  3E81 

08BB  C680 

MOVEIT:  MVI  A,81H 

ADI  80H 

08BD  E2C508 

JPO  MOVE IT 1 

;BR  IF  RUNNING  ON  8080 

O8C0  0600 

08C2  EDBO 

MVI  Bt0 

DB  0EDH,080H 

.;USE  Z80.  BLOCK  .MOVE  .  INSTRUCTION. . 

08C4  C9 

RET 

08C5  7E 
o$c6  12 

08C7  23 

MOVE IT t: 

MOV  AtM 

STAX  D 

INX  H 

. . . .  ;MQVE.  .DATA  .USING. 8.0.80.  .CODE . 

. 0'8c8'  '13 

08C9  OD 

INX  D 

DCR  C 

08CA  C2C508 
08CD  C9 

JNZ  MOVE IT 1 

RET 

PAGE  . 
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LOGICAL.  DEVICE. ROUTINES 


• 

t 

• 

THESE  ROUTINES  HANDLE  THE  LOGICAL.  .TO.  PHYSICAL . 

# 

t 

DEVICE  MAPPING  ESTABLISHED  BY  THE  CP/M  IOBYTE 

;  CONSOLE  STATUS 
♦ 

08CE  CDD608  . 

qpNST; 

CALL  .... 

CONS . 

. .  ;GET.  STATUS  .OF.  .SPECIFIC.  .DEVICE . 

08D1  B7 

08D2  C8 

ORA 

RZ 

A 

NOT . READY. RETURN. 0.  IN.  A . 

08D3  3EFF 

08D5  C9 

MVI 

RET 

A.OFFH 

;  ELSE  RETURN  FF 

0QD6  3A0300 

CONS: 

LDA 

IOBYTE 

;USE  BITS  1-0  FQR  CQNSOLE  D5VJCE  . 

08D9  CD4F09 
08DC  310 A 

CALL 

DW 

INDXIT 

TTYSTAT . 

08DE  5 BO 9 

08E0  E408 

DW 

DW 

CRTSTAT 

RDRST 

;2:  BATCH  MODE  (USE  READER.  DEVICE) . 

08E2  5B09 

DW 

CRTSTAT 

;  READER  STATUS 

08E4  3 AO 300 
08E7  OF 

RDRST: 

LDA 

RRC 

IOBYTE 

08E8  CD5009 
08EB  310A 

CALL 

DW 

GOTOIT 

TTYSTAT 

08ED  500B 

08EF  830A 

DW 

DW 

BUSY 

MDSTAT 

; UN IMPLEMENTED  INPUTS 

08F1  5B09 

• 

DW 

CRTSTAT 

.  ;  CONSOLE  INPUT 

0S'F3  3A0300 
08F6  CD4F09 

CONIN: 

LDA 

CALL 

IOBYTE 

INDXIT 

08F9  280A 
08FB  7C09 

DW 

DW 

TTYIN 

CRTIN 

;0:  TTY 

;1:  CRT  . 

. 08FD  4009 . 

ORFF  7C09 

DW 

DW 

READER 

CRTIN 

;2:  BAT  (READER  INPUT) 

: UC 1 :  CRT  INPUT.  LST :  OUTPUT . 

■  CONSOLE  OUT  . . 

0901  3A0300 

CONOUT 

:  LDA 

IOBYTE 

. 090 A ‘ CD4F09 

0907  370A 

CALL 

DW 

INDXIT 

TTYOUT 

;0:  TTY  . 

0909  080A 
090B  1F09 

DW 

DW 

CRTOUT 

LIST 

;  1 :  CRT 

;2:  BAT  (OUTPUT  TO  LST)  . 

090D  1F09 

DW 

LIST 

;UC1:  CRT  INPUT,  LST:  OUTPUT 

;  LISTST  -  LIST 

'  STATUS  CHECK 

<((((<((((< 


)>))))))) 
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090F  3A0300 

LISTST:  LDA 

IOBYTE 

;GET  THE  CURRENT  IOBYTE 

0912  07 

RLC 

; SHIFT  INTO  POSITION 

0913  07 

RLC 

0914  CD4F09 

CALL 

INDXIT 

0917  9C0A 

DW 

TTYOS 

;0:  TTY 

0919  A50A 

DW 

CRTOS 

;  1 :  CRT 

091B  DFOA 

DW 

LPTOS 

;2:  LPT 

091D  180B 

DW 

DBDOS 

;3:  DIABLO 

.  .  .  1  . 

LIST 

OUT 

f 

09 IF  3A0300 

LIST: 

LDA 

IOBYTE 

0922  07 

RLC 

{BITS  7-6  TO  2-1 

0923  07 

RLC 

0924  CD4F09 

CALL 

INDXIT 

0927  370A 

DW 

TTYOUT 

;0:  TTY 

0929  080A 

DW 

CRTQUT 

;  1 :  CRT 

092B  4 10A 

DW 

LPTOUT 

;2:  LPT 

092D  5C0A 

DW 

DBD 

;3:  DIABLO 

* 

.  .  .1. 

PUNCH 

OUT 

♦ 

092F  3A0300 

PUNCH: 

LDA 

IOBYTE 

;BITS  4-5  TO  1-2 

0932  OF 

RRC 

0933  OF 

RRC 

0934  OF 

RRC 

0935  CD5009 

CALL 

GOTOIT 

0938  370A 

DW 

TTYOUT 

•0:  TTY 

093A  540B 

DW 

DMYOUT 

O93C  890A 

DW 

MDOUT 

;2:  UP1  MODEM  PORT  OUTPUT 

093E  080A 

DW 

CRTOUT 

;  READER  in 


0940  3A0300 

READER:  LDA 

IOBYTE 

;BITS  3-2  TO  2-1 

0943  OF 

RRC 

0944  CD5009 

CALL 

GOTOIT 

0947  280A 

DW 

TTYIN 

;0:  TTY 

0949  520B 

DW 

DM  YIN 

094B  7D0A 

DW 

MDIN 

;2:  UR1  MODEM  PORT  INPUT 

094D  7C09 

DW 

CRTIN 

*  DISPATCH  SUBROUTINE  - 

INDEXED  TABLE  JUMP 

094F  07 

INDXIT:  RLC 

0950  E606 

GOTOIT:  ANI 

06H 

; MASK  BITS 

0952  E3 

XTHL 

{SAVE  HL,  GET  TABLE  ADDRESS 

0953  CD9508 

CALL 

DADA 

J ADD  0, A  TO  HL 

0956  CDB308 

CALL 

HLIHL 

{GET  ADDRESS  IN  HL 

6959  E3 

XTHL 

;XCHG  ROUTINE  ADDRESS,  OLD  HL 

095A  C9 

RET 

{DISPATCH 
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. PHYSICAL.  DEVICE .ROUTINES . 

♦ 

ACCESSED .  VIA  .THE  .LOGICAL  DEVICE  ROUTINES  ABOVE 


;”CRT"  .PHYSICAL.  STATUS.  ROUTINE 


;  USES  H84PT1  . 

CRTSTAT: 

IF 

NOT  INTINp 

i 

LDA 

RAR 

MODE 

;GET  THE  MODE  BYTE 
;IF  THE  LSB  =  1 

JC 

IF 

CRTS1 

MODEBO- 1 

;  THEN  CONSOLE  ON  H8-5 

%:  MODEBO 

ENDIF 

NE  1 

LXI 

..H.,H84PT1 

..  ; POINTER  TO  BASE  PORT 

JMP 

US 

;GET  STATUS 

CRTS1 :  IN 

AN  I 

H85CRT+1 

02H 

;GET  8251  STATUS  REGISTER 
:MASK  RXRDY 

RET  . 

.  ENDIF 

IF 

INTINP 

095B  3A090C 
095E  B7 

LDA 

ORA 

CRTB 

A 

JFIND  OUT  HOW  MANY  CHARACTERS  ARE  IN  THE  BUFFER 

095F  CO 

RNZ 

; RET  IF  CHARACTER  AVAILABLE 

;  INSURE  INTERRUPTS  FOR  CRT  INPUT  ARE  ENABLED. 
;  A  USER  PROGRAM  MAY  HAVE  TURN  THEM  OFF. 


0960  3A3600 
0963  IF 

CRTS2: 

LDA 

RAR 

MODE 

;Q.  CRT  ON  H8-*5  CARD 

0964  D26E09 

JNC 

CRTS2A 

;  BR  IF  NOT 

. 

IF 

MODEBO- 1 

%: 

MODEBO 

NE  1 

ENDIF 

0967  3E17 

MVI 

..A.,17H. . 

; ENABLE  RX  &  TX  PLUS  INTERRUPTS 

0969  D3FB 

OUT 

H85CRT+1 

096B  C37909 

JMP 

CRTS3 

096E  3A3700 

CRTS2A : 

LDA 

H84PT1 

; ENABLE  RECEIVER  INTERRUPTS  ON  8250 

0971  3C 

INR 

A 

0972  327809 

STA 

CRTS2B 

0975  3E01 

MVI 

A ,  1 

0977  D300 

OUT 

0 

0978  = 

CRTS2B 

EQU 

$-1 

0979  FB 

CRTS3: 

El 

; INSURE  MASTER  ENABLE 
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097A  AF .  XRA  A  ; INDICATE  NO  CHARACTER  AVAILABLE 

097B.  P9. . RET . 

ENDIF 


l  ”  CRT" .  PHYSICAL.  INPUT.  ROUTINE. 


. 

crtin: 

IF 

NOT  INTINP 

LDA 

RAR 

MODE 

;GET  MODE  BYTE 

JC 

IF 

CRTI1 

MODEBO- 1 

;  THEN  CONSOLE  ON  H8-5 

% :  MODEBO 

ENDIF 

NE  1 

LXI 

CALL 

ANI 

H.H84PT1 

ui 

7FH 

5 GET  CHAR  FROM  8250 

;MASK  PARITY  . 

CRTI1 :  IN 

ANI 

H85CRT+1 

02H 

; CHECK  IF  RXRDY 

JZ 

CRT!  1 

;WAIT  FOR  CHARACTER 

IN 

ANI 

H85CRT 

7FH 

; GET  CHARACTER 

;MASK  PARITY  . 

RET 

ENDIF 

IF 

INTINP 

097C  CD5B09 
097F  CA7C09 

CRTIN 1:  CALL 

JZ 

CRTSTAT 

CRTIN 1 

; CHECK  IF  CHARACTER  AVAILABLE 

;BR  IF  NO  CHARACTER  AVAILABLE  . 

0982  F3 

DI 

; A  CHARACTER  IS  AVAILABLE  —  DON.'T . 

0983  21090C 

LXI 

H,CRTB 

;  LET  ANYONE  BOTHER  ME  WHILST  I  GET  IT 
; POINTER  TO  NUMBER  OF  CHARS  IN  BUFFER  . 

. 6'9S6'35 . 

0987  2A0A0C 

DCR 

LHLD 

M 

CRTGET 

;MARK  ONE  TAKEN 

;GET  THE  POINTER  TO  THE  CHAR 

098A  4E 

098B  23 

MOV 

I  NX 

CtM 

H 

;PUT  THE  CHAR  IN  C 

; ADVANCE  THE  POINTER  . 

09 ^C  7D 

0980  FED5 

MOV 

CPI 

A,L 

CRTBND  MOD  256 

; CHECK  THAT  FT  WASN'T  ADVANCED  PAST  END 

0$8P  C29509 
0992  21AD0E 

JNZ 

LXI 

CRTIN2 

H,CRTBUF 

0995  220A&C 
0998  FB 

CRTiN2:  SHLD 
El 

CRTGET 

; ALLOW  ME  TO  BE  BOTHERED 

( 

79 

099A  C9 

. MOV' 

RET 

A,  C 

;PUT  THE  CHARACTER  IN  A  (TOO) 

;  CRT  INTERRUPT  SERVICE  ROUTINE  . 

099B  22A70E 

CRTISR :  SHLD 

HSAV 

;SAVE  THE  PROCESSOR  STATE 

. 09^' El . 

099F  22A90E 

. FOP' ' ' ' 

SHLD 

ti 

RETSAV  • 

'  VdET'  RETU'Rli  ADDRfeSS 
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09A2  F5 

PUSH 

PSW 

.  O9A3  210000 

.LXI 

H,  0 

;SAVE  THE  OLD  SP 

09A6  39 

DAD 

SP 

.  09A7  22ABOE 

SHLD 

OLDSP 

09AA  31E50E 

LXI 

SP.LCLSTK 

. 09AD  213700 

LXI 

H.H84PT1 

; POINTER  TO  SERIAL  DEVICE  STRUCTURE 

09B0  3E02 

MVI 

A. 2 

.  0?B2  CD8D0B 

CALL 

PINX 

09B5  FE04 

CPI 

0100B 

.  09B7  C2010A 

JR? , 

CRTIS6 

;IT  WASN'T  THIS  8250 

IF 

BRKKEY 

MVI 

A, 5 

; CHECK  FOR  BREAK  .  . 

CALL 

PINX 

ANI 

10H 

JNZ 

CRTIS8 

ENDIF  . 

09BA  CD8C0B 

CALL 

UI1 

;GET  THE  CHARACTER  . 

CRTIS1 : 

09BD  E67F 

ANI 

7FH 

JMASK  PARITY  BIT 

09BF  F5 

PUSH 

PSW 

;SAVE  THE  CHARACTER  . 

.  09QO  3AO9OC 

LDA 

CRTB 

;GETTING  NEAR  THE  END  OF  THE  BUFFER? 

09C3  FE24 

CPI 

CRTLEN-4 

. Q9C5  DAD909 

JC 

CRTIS2 

;NOT  YET 

09C8  C5 

PUSH 

B 

O9C9  D5 

PUSH 

D 

09CA  0E07 

MVI 

CtBELL 

;WARN  HIM  BY  SFNDiHO  BELL  . 

O^CC  CD080A 

CALL 

CRTOUT 

09CF  D1 

POP 

D 

09D0  Cl 

POP 

B 

09D1  3A090C 

LDA 

CRTB 

;CAN  WE  ACCEPT  THIS  CHARACTER  . 

09D4  FE28 

CPI 

CRTLEN 

09D6  CAFD09 

J  z 

CRTIS5 

09D9  FI 
O^DA  2A0C0C 
09DD  77 . 


CRTIS2:  POP 

. LHLD 

MOV 


PSW 

CRTPUT 
M,  A 


; RECALL  THE  CHARACTER 

;THE  BUFFER  PUT  POINTER 

;PUT 'THE ‘CHARACTER'  IN 'THE 'BUFFER 


09DF  7D 

O^EO  FED5 

MOV 

CPI 

A,L 

CRTBND  MOD  256 

; CHECK  FOR  WRAP-AROUND 

09E2  C2E809 

JNZ 

CRTIS3 

09E5  21AD0E 

LXI 

H, CRTBUF 

09E8  220C0C 

CRTIS3:  SHLD 

CRTPUT 

09EB  21090C 

LXI 

H, CRTB 

09EE  34 

INR 

M 

; ANOTHER  CHARACTER  IS  AVAILABLE 

09EF  2AAB0E 

CRTIS4:  LHLD 

OLDSP 

; RESTORE  THE  OlD  STACK  . 

Q9F2  F9 

SPHL 

09F3  Fi 

POP 

PSW 

09F4  2AA90E 

LHLD 

RETSAV 

09F7  E5 

PUSH 

H 

09F8  2AA70E 

LHLD 

HSAV 

0'9fB  FB 

El 

09FC  C9 

RET 

; AND  RETURN 
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09FD  FI 

09FE  C3EF09 

CRTIS5:  POP 

JMP 

PSW 

CRTI34 

; CLEAN  STACK 

0A01  DBFB 

CRTIS6:  IN 

H85CRT+1 

;GET  STATUS . 

IF 

ANI 

BRKKEY 

20H 

;HAD  AN  OVERRUN? . 

JNZ 

ENDIF 

CRTI11 

;  YES,  BREAKOUT 

0A03  DBFA 

IN 

H85CRT 

; IF  THE  CRT  825.0  ,PJ£N:T.  .DO.  XT, .  THE .  82.51 .  DTD . 

0A05  C3BD09 

JMP 

CRTIS1 

IF 

CRTIS8:  CALL 

BRKKEY 

UI1 

;GET  THE  GARBAGE . 

LXI 

CRTIS9:  MVI 

D,6000 

A, 5 

;WAIT  FOR  THE  DUST  TO  SETTLE 

CALL 

ANI 

PINX 

9 

JNZ 

DCX 

CRTIS8 

D 

MOV 

ORA 

A.D 

E 

JNZ 

CALL 

CRTIS9 

UI1 

;MAKE  SURE  THERE  IS  NO  GARBAGE  PRESENT 

CRTI10:  LXI 

H , CRTBUF 

SHLD 

SHLD 

CRTGET 

CRTPUT 

XRA 

STA 

A 

CRTB 

IF 

CALL 

H17T 

RESH17 

ENDIF 

IF 

H37T 

CALL 

ENDIF 

RESH37 

IF 

CALL 

H47T 

RESH47 

ENDIF 

IF 

H67T 

CALL 

ENDIF 

RESH67 

CALL 

El 

FLUSH1 

; FLUSH  (ABORT)  HOST  BUFFER 

JMP 

BOOT 

CRTI11:  IN 

MVI 

H85CRT 

A.17H 

OUT 

H85CRT+1 

LXI 

CRTI12;  IN 

D,60bd 

H85CRT+1 

ANI 

JNZ 

22H 

CRTI11 

DCX 

MOV 

D 

A,D 

<  (  (  (.  (  C  ('.((( 
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ORA 

JNZ.  . 

E 

CRTI1.2.. 

IN 

H85CRT 

JMP 

CRTI10 

ENDIF 

. ENDIF . 

f 

;"CRT*'  PHYSICAL  OUTPUT  ROUTINES 


AO 6  CDA50A . CRTOUT:  CALL . CRTOS  * 

OAOB  B7 .  ORA  A 

OAOC  CA080A . JZ . CRTOUT 


OAOF  3A3600  LDA  MODE  ;GET  MODE  BYTE 

0A12  IF  RAR  *IF  LSB  =  J . 

OAi'3  DA190A . JC . CRTOI . ;  ‘  ‘  THEN  CONSOLE  ON  H8-5 

IF  MODEBO-1 

. %z . MODEBO  NE  1 . 

ENDIF 


°A16  C3650B . JMP . up . ;  OUTPUT  CHARACTER  IN  C 

OA19  E5  CRTOI:  PUSH  H 

OAVA  23 . INX . H . 

OA1B  23  INX  H  ;  POINT  TO  FLAG  BYTE 

tiAic  7E . mov . a/m . 

OA1D  17  RAL 

OA1E  E'l . POP . H . 

OA1F  79  MOV . A,C . 

OA20  DC940B . CC  MUC . ;MAP  TO  UPPER  CASE 

0A23  D3FA  OUT  H85CRT . 

0A25  C3750B  JMP  P0UT2 ; CHECK  FOR  NULLS 


jWINPOt 


0A28  213AOO  TTYIN:  LXl  H.H84PT2 

0'A2B‘  CD86'0'6 . CALL . UI . . . 

OA2E  E67F  ANI  7FH  ;MASK  PARITY 

OA30'C9 . RET . 


;  TTY  STATUS 


OA31  213A00  TTYSTATrLXI  H.H84PT2 

OA34  C35?OB . JMP . US . ;GET  STATUS 


.  TTY  OUTPUT 
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0A37  CD9C0A 
OA3A  B7 

TTYOUT:  CALL 
QRA 

TTYOS 

A  . 

OA3B  CA370A 
0A3E  C3650B 

JZ 

JMP 

TTYOUT 

uo 

; OUTPUT  CHARACTER  IN  C  . 

;  LINE  PRINTER 

OUT 

0A41  3A030C 

LPTOUT:  LDA 

DCLPOS 

;IF  DON’T  CHECK  LP  OUTPUT  STATUS  ...  . 

0A44  B7 

ORA 

A 

0A45  C24F0A 

JNZ 

LPTOU.2 

;  THEN  SKIP  THE  TEST  . 

0A48  CDDFOA 

LPTOU1 :  CALL 

LPTOS 

;  ELSE,  WAIT  FOR  READY  LP  OUTPUT  STATUS  . 

0A4B  B7 

ORA 

A 

0A4C  CA480A 

JZ 

LPTOU1 

0A4F  213DOO 

LPTOU2 :  LXI 

H,H84PT3 

; POINTER  TO  DEVICE  STRUCTURE 

0A52  11060C 

LXI 

D.LPTCTS 

{AND  ONE  TO  CHAR  TO  SEND 

0A55  AF 

XRA 

A 

; FORCE  A  CHECK  OF  LP  OUTPUT  STATUS 

0A56  32030C 

STA 

DCLPOS 

;  NEXT  TIME  . 

OA59  C3650B 

JMP 

UO 

; ‘  DiABLO ' ETX/ACK  PROTOCOL ' DRIVER 


0A5C  CD180B 

DBD: 

CALL 

DBDOS 

. 0A5FB7 . 

ORA 

A 

OA60  CA5C0A 

JZ 

DBD 

6 A (5 3  CD650B 

CALL 

UO 

; SEND  CHARACTER  IN  C  TO  PRINTER 

0A66  217C0A 

LXI 

Ht HSCNT 

{UPDATE  HANDSHAKE  COUNT 

0A69  35 

DCR 

M 

bm  FE1B 

CPI 

01BH 

;ESC? 

0A6C  7E 

MOV 

A.M 

OA6D  C2760A 

JNZ 

DBD1 

{WAS  NOT  AN  ESCAPE 

0A70  FE02 

CPI 

2 

;LAST  CHAR  WAS  ESCAPE T 

0A72  DO 

RNC 

{  MAKE  CERTAIN  AT  LEAST  TWO  CHARS  FOLLOW 

OA73  3602 

MVI 

Mt2 

;  WITHOUT  INTERVENING  ETX 

0A75  C9 

RET 

0A76  B7 

DBD1 : 

ORA 

A 

{TIME  TO  HANDSHAKE? 

OA77  CO 

RNZ 

0A78  3E01 

MVI 

A*  1 

{TELL  DBDOS  IT  IS  TIME  TO  HANDSHAKE 

0A7A  12 

STAX 

D 

0A7B  C9 

RET 

0A7C  20 

HSCNT: 

DB 

32 

;  MDIN  -  MODEM  INPUT  ROUTINE 


0A7D  214000  MDIN:  LXI  H.H84PT4 


( 


< 


( 


( 
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'  0A8O  C3860B . JMP . UI . 


l 

;  MDSTAT  -  MODEM  INPUT  STATUS 


OA83  214000 . MDSTAT: ' LXI . hVH84PT4 

0A86  C3550B  JMP  US 


;  MDOUT  -  MODEM  OUTPUT 


OA89  CD930A 

MDOUT:  CALL 

MDOS 

0A8C  B7 

ORA 

A 

0A8D  CA890A 

JZ 

MDOUT 

0A90  C3650B 

JMP 

ub 

;  MDOS,  TTYOS,  AND  CRTOS  -  MODEM,  TTY,  AND  CRT  OUTPUT  STATUS 

; . RETURNS  00  FOR  BUSY . 

;  FF  FOR  READY  TO  ACCEPT  ANOTHER  CHARACTER 


OA93  214000 

MDOS: 

LXI 

H.H84PT4 

0A96  11070C 

LXI 

D.MDCTS 

0A99  C3B20A 

JMP 

CRTOS 1 

0A9C  213AOO 

TTYOS: 

LXI 

H.H84PT2 

0A9F  11040C 

LXI 

D , TTYCTS 

0AA2  C3B20A 

JMP 

CRTOS 1 

0AA5  213700 

CRTOS : 

LXI 

H,H84PT1 

0AA8  11050C 

LXI 

D.CRTCTS 

OAAB  3A3600 

LDA 

MODE 

; HANDLE  H8-5  CASE  SPECIALLY 

OAAE  IF 

RAR 

OAAF  DACAOA 

JC 

CRT0S3 

0AB2  CD5D0B 

CRTOS  1 : 

CALL 

UOS  ; CHECK 

fO  SEE  IF  THE  UART  CAN  TAKE  A  CHAR 

0AB5  CAC80A 

JZ 

CRTOSB 

;  THEN  RETURN  FLAGGING  BUSY 

0AB8  1A 

LDAX 

D 

;SEE  IF  THERE  ARE  ANY  NULLS  TO  BE  SENT 

0AB9  B7 

ORA 

A 

OABA  C2BF0A 

JNZ 

CRT0S2 

;IF  SO,  GO  SEND  ONE 

OABD  3D 

DCR 

A 

;ELSE,  SET  READY 

OABE  C9 

RET 

OABF  3D 

CRT0S2: 

DCR 

A 

;'CCilWr  THIS  NULL  AS  SEHT  . 

OACO  12 

STAX 

D 

0AC1  C5 

PUSH 

B 

0AC2  OEOO 

MVI 

C.NULL 

;SEND  A  NULL 

0AC4  CD650B 

CALL 

uo 

0AC7  Cl 

POP 

B 
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0AC8  AF 

0AC9  C9 

..CPJQSP.:.  XU..... 
RET 

A 

. .  .{.RETURN,  CLAIMING.  TO. BE  .STILL. BUSY . 

. 

OACA  DBFB 

OACC  IF 

CRT0S3:  IN 

RAR 

H85CRT+1 

; SPECIAL  CASE:  H8-5  SERIAL  CARD 

OACD  D2C80A 

JNC 

CRTOSB 

; STILL  BUSY 

OADO  1 A 

0AD1  B7 

LDAX 

ORA 

b 

A 

; ANY  NULLS  STILL  TO  SEND? 

0AD2  C2D70A 

JNZ 

CRT0S4 

;IF  SO,  GO  SEND  ONE 

0AD5  3D 

0AD6  C9 

DCR 

RET 

A 

; RETURN  READY 

0AD7  3D 

CRT0S4:  DCR 

A 

; COUNT  THIS  NULL  AS  SENT 

0AD8  12 

STAX 

D 

0AD9  3E00 

OADB  D3FA 

MVI 

OUT 

A , NULL 

H85CRT 

{SEND  A  NULL 

OADD  AF 

XRA 

A 

{RETURN  BUSY 

OADE  C9 

RET 

• 

{  LPTOS  -  LINE 

PRINTER  OUTPUT 

STATUS 

WITH  HARDWARE  HANDSHAKE 


♦ 


OADF  213DOO 

LPTOS:  LXI 

H.H84PT3  . 

. DA'fiS'  nosoc  ‘ 

LXI 

D.LPTCTS 

0AE5  CD5D0B 
0AE8  CA160B 

CALL 

JZ 

UOS  {CHECK  TO  SEE  IF  THE  UART  CAN  TAKE  A  CHAR 

LPTOSB  {THE  UART  IS  STILL  BUSY  . 

HANDSHAKE  USED  FOR  H14/WH24 


♦ 

1 

* 

• 

.  IF  YOUR ’ PRINTER ' DOES ' NOT ' USE ' HANDSHAKE  TO ' INDICATE * "BUSY” . 

DELETE  THE  NEXT  5  LINES 

OAEB  3E06 

MVI 

A, 6 

{INPUT  MODEM  STATUS  REG 

OAED  CD8D0B 
OAFO  47 

CALL 

MOV 

PINX 

B,  A 

OAFi  3A36b0 
0AF4  E604 

LDA 

ANI 

MODE 

MODEB2 

{CHECK  FOR  POLARITY  OF  READY  SIGNAL 

0AF6  C2FC0A 
0AF9  78 

JNZ 

MOV 

LPTOSO 

A,B 

;  BR  IF  READY  IS  HIGH  POLARITY 
{READY  IS  INDICATED  BY  LOW  POLARITY 

OAFA  2F 

OAFB  47 

CMA 

MOV 

B,  A 

{  THEREFORE,  COMPLEMENT  STATUS 
{  BEFORE  CHECKING 

. OAFC  3A3500 

OAFF  AO 

LPTOSO : 

LDA 

ANA 

PRTRDY 

B 

{GET  LPT  PRINTER  READY  MASK 
{CHECK  APPROPRIATE  READY  LINE 

. DBOO  CA^OB 

JZ 

LPTOSB 

;  BR  IF  NOT  READY 

UB03  iA 

0B04  B7 

LDAX 

ORA 

D 

A 

{ANY  NULLS  TO  SEND? 

bES<5$  C20D0B 

JNZ 

LPTOS 1 

{YES,  THERE  ARE  NULLS  REQUIRED 

(((((((((( 


))))}>)))) 
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0BO8  3D 

.  0BO9  32030S 

DCR 

.5TA  . . . . 

A 

.  .PCLRQS . 

;N0,  RETURN  WITH  A  =  OFFH  INDICATING  READY 
. .  .lELAG  .DONf.T.  CHECK.  LP.  STATUS . 

OBOC 

C9 

RET 

OBOD 

3D 

LPT0S1 : 

DCR 

A 

; COUNT  THIS  NULL  AS  SENT 

.  OBOE 

12 

.  STAX. . . 

. .  P. . 

OBOF  C5 

PUSH 

..B . 

. .  JjSAVE  THE  .ORIGINAL  .CHARACTER . 

OB  10 

OEOO 

MV  I 

C ,  NULL 

OB  12 

CD650B 

CALL 

UO 

0B15 

ci 

POP 

B 

0B16 

AF 

LPTOSB : 

XRA 

A 

; INDICATE  BUSY 

0B17 

C9 

RET 

;  DBDOS 

-  DIABLO  OUTPUT  STATUS 

♦ 

.  ,  ,t.  .  . 

IF  CTS 

==  0  THEN  OKAY 

.T.Q .  SEND.  CHARACTERS . 

1 

CTS 

==  1  THEN  SEND 

ETX,  SET  CTS  TO  2 

. . .  t . 

CTS 

2  .THEN  WATT .  FOR .  A.C.K . .  THEN  SET.  CTS.  TO . 0 . 

0B18 

213D00 

DBDOS: 

LXI 

H,H{J4pT3 

0B1B 

1 1080C 

LXI 

DtDBDCTS 

0B1E 

1 A 

LDAX 

D 

;FIND  OUT  THE  STATE  OF  OUTPUT 

0B1F 

FE02 

CPI 

2 

;IF  NOT  2, 

0B21 

C23A0B 

JNZ 

DBDOS 1 

;  THEN  GO  DO  OUTPUT 

;  MUST 

RECEIVE 

AN  ACK  FROM  THE 

PRINTER 

0B24 

CD550B 

CALL 

US 

; CHECK  UART  FOE  INCOMING 

0B27 

CA500B 

JZ 

DBDOSB 

.  .:N9.  .CHARACTER  .  BACK .  FROM.  PRINTER  .YET . 

;  SO  FLAG  BUSY 

0B2A 

CD8C0B 

CALL 

UI1 

.  IGET.  .THE.  .CHARACTER . 

0B2D 

E67F 

ANI 

07FH 

;STRIP  OFF  PARITY 

0B2F 

D6O6 

SUI 

•F’  MOD  52 

.. COMPARE.  IT. TQ. ACK . 

0B31 

C2500B 

JNZ 

DBDOSB 

;NOT  AN  ACK,  SO  STILL  BUSY 

OB32* 

12 

STAX 

D 

.  I.WAS.  AN.  ACK..  .SO.  ABLE.  .TO .  SEND.  MQBE  CHARS 

0B35 

3E20 

MVI 

..A,3.2 . 

.  IRESET .  THE .  HANDSHAKE.  COUNT . 

0B37 

327C0A 

STA 

HSCNT  ’ 

0B3A  CD5D0B 

DBDOS 1: 

CALL 

UOS  ; CHECK 

TO  SEE  IF  UART  CAN  TAKE  A  CHAR 

0B3D 

CA500B 

JZ 

DBDOSB 

.  .  I  UART . IS  NOT  READY. TO  ACCEPT  A  .CHARACTER 

0B40 

1 A 

LDAX 

D 

IIS  IT  TIME  TO  SEND  ETX? 

Ob4i 

B7 

ORA 

A 

0B42  C2470B 

JNZ 

DBD0S2 

;YES,  GO  SEND  ETX 

0B45 

3D 

DCR 

A 

;N0,  INDICATE  READY  (A  ==  OFFH) 

0B4'6 

C9 

RET 

0B47  3C 

DBDOS 2 : 

INR 

A 

I FLAG  THAT  THE  NEXT  THING  TO  DO  IS  WAIT  FOR  ACK 

0B48 

12 

STAX 

D 
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0B49  C5 

PUSH 

0B4A  0E03 

MVI 

C,fCr  MOD  32  ;SEND  THE  ETX  . 

0B4C  CD650B 

CALL 

UO 

064f  Ci 

POP 

B 

BusV : ' 

0B5O  AF 

DBDOSB:  XRA 

A 

. -0B5T  C9 . 

RET 

;  DUMMY  INPUT 

AND  OUTPUT  ROUTINES  . 

• 

1 

.  3E'1A 

DM YIN:  MVI 

A, f Z '-40H  ; UNIMPLEMENTED  INPUTS  RETURN  CTL-Z 

0B54  C9 

DMYOUT :  RET 

; DUMMY  OUTPUTS  DO  NOTHING  . 

))>)>))))) 
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;  8250  I/O  ROUTINES 


. t . US  -  GET.  UART  (INPUT) . STATUS . 

0B55.  .3E05 . US:  .MVI  ...  A, 5  ^ OFF SET  TO  THE  STATUS  REGISTER 

OB57  CD8DOB  CALL  PINX 

OB5A  E601 .  ANI  1  JMASK  THE  DATA  AVAILABLE  BIT 

OB5C  C9  RET 

. ; "  UOS  GET’  UART  ’(OUTPUT }  ’  STATUS . 

0B5D  3E05  UOS :  MVI . A, 5  . . ; OFFSET  TO  STATUS  REG . 

0.B5F  CD8P0B . CALL  .  PINX 

0B62  E620  ANI  ’  ’  ’  20H 

0B64  C9 . RET 

. J .  Up . -  OUTPUT . TO  UART 

OB65..7E . UO; . MOV . AtM 

;  . jmp . POUT . 


t 

; .  POUT  -  OUTPUT  .BYTE . IN  C  TO  PORT  IN  A 


0B66  327^0B 

POUT: 

STA 

POUT 1+1 

.  0B6?  E5 

PUSH 

H 

0B6A  23 

INX 

H 

0B6B  23 

I  NX 

H 

; POINT  TO  FLAG  BYTE 

0B6C  7E 

MOV 

A.M 

0B6D  17 

RAL 

0B6E  El 

POP 

H 

0B6F  79 

MOV 

A,C 

0B70  DC940B 

cc 

MUC 

;MAP  TO  UPPER  CASE 

OB73  D300 

POUT1 : 

OUT 

00H 

j SELF -MODIFYING  CODE 

0B75  FEOD 

POUT2 : 

CPI 

PADCH 

; CHECK  IF  THIS  CHAR  NEEDS  PADDING  (USUALLY  CR) 

0B77  CO 

RNZ 

;NO 

0B78  E5 

PUSH 

H 

;FIND  OUT  NUMBER  OF  NULLS  REQUIRED 

0B79  23 

INX 

H 

0B7A  23 

INX 

H 

0B7B  7E 

MOV 

A.M 

;GET  COUNT  FROM  DATA  STRUCTURE 

0B7C  El 

POP 

H 

OB7D  IF 

RAR 

; SHIFT  INTO  LEAST  SIG  3  BITS 

0B7E  IF 

RAR 

OB7F  IF 

RAR 

0B80  IF 

RAR 

o'b8i  £607 

AW 

07H 

0B83  C8 

RZ 

; RETURN  IF  NO  NULLS  ARE  REQUIRED 

OB84  12 

STAX 

D 

;SAVE  COUNT  OF  NULLS  TO  SEND  IN  XXXCTS  . 

0B85  C9 

RET 
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;  ui.t 

INPUT 

FROM  UART 

0B86 

CD550B 

ui: 

CALL 

US 

0B89 

CA860B  ‘ 

JZ 

ui 

0B8C 

AF 

UI1 : 

XRA 

A 

t 

JMP 

PINX 

• 

:  pin 

-  INPUT 

BYTE  FROM  PORT  IN  A 

» 


. 0680 '86 . 

-prm' 

Add 

M 

0B8E  32920B 

PIN: 

sta 

PIN1+1 

. W  DB'OO . 

OB93  09 

’  PIN1: 

IN 

RET 

00H 

; SELF-MODIFYING  CODE 

;  MlJC 

• 

1 

-  MAP  CHARACTER  IN  A  TO  UPPER  CASE 

0B9M  FE61 

MUC: 

CPI 

'a*  ;IF  LESS  THAN  LOWER  CASE  A 

. ob9b  m  '' 

RC 

;  THEN  ALREADY  UPPER  CASE 

OB97  FE7B 

CPI 

’z’+l  ;IF  GREATER  THAN  LOWER  CASE  Z 

. DB99  D0‘ . 

'  ’  R'NC 

;  THEN  NOT  A  LOWER  CASE  LETTER 

0B9A  D620 

SUI 

•a’ -’A'  ; CONVERT  TO  UPPER  CASE 

. OB9CC9 . 

RET' 

PAGE 
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:  PMSG  -  PRINT  THE  MESSAGE 

AT  HL  UNTIL  NULL 

* 

0B9D  7E 

. QPSE.P.7. . 

PMSG:  MOV 

ORA 

A.M 

A 

;GET  A  CHAR 
; CHECK  FOR  NULL 

0B9F  C8 

RZ 

;END  OF  MESSAGE 

.  03A0.4F 

Mgv 

.  .  C.A . 

;  ELSE 

0BA1  E5 

PUSH 

H 

;SAVE  THE  POINTER 

. 0BA2.CPQJP9... 

. Qhll. . . 

CQNQUT 

;  PRINT  THIS  CHARACTER 

0BA5  El 

POP 

H 

. 0RA6.23 . 

. INX. . . . 

..  H . 

;  POINT  TO  NEXT 

0BA7  C39D0B 

JMP 

PMSG 

;  REPEAT 

.  H.QUT.  -  HEX  .OUTPUT.  ROUTINE . 


;  TYPE 

CONTENTS  OF  A  IN 

HEX  ON  CONSOLE 

OBAA  F5 

.  Op A?. OF 

HOUT:  PUSH 

RRC 

PSW 

; SAVE  CONTENTS  OF  A 

OBAC  OF 

RRC 

. QP.AP.PF. . 

RRC 

OBAE  OF 

RRC 

. QBAF .  CPP3QP . . 

CALL 

NIBBLE 

;PUT  OUT  HIGH  ORDER  NIBBLE 

0BB2  FI 

POP 

PSW 

;FALL  THROUGH  TO  PUT  OUT  LOW  NIBBLE 

. PP.P3.P.6QF . 

.  .  NJPPPEj.  ANI.. 

OFH 

;MASK 

0BB5  FEOA 

CPI 

10 

;>  10  ? 

. QPP7  FABCOB 

JM 

NIBBL1 

;IF  0-9 

OBBA  C607 

ADI 

7 

;  ELSE  CONVERT  TO  A~F 

.obpp  C630 

NIBBL1:  ADI 

30H 

; BINARY  TO  ASCII 

OBBE  4F 

MOV 

C.A 

;TYPE  IT  ON  THE  CONSOLE 

OBBF  C30109 

JMP 

CONOUT 

PAGE 
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:  BIOS  MESSAGES  . 

0BC2  ODOA 

• 

BTMSG:  DB 

CR,LF 

0BC4  4552524F52  DB 

OBEB  2052454 144RDMSG;  DB 

♦ERROR  DURING 
♦  READ’,0 

WARM  BOOT  -  PRESS  ANY  KEY' .0 

0BF1  2057524954WRMSG:  DB 

0BF8  204552524FERRMSG:  DB 

♦  WRITE' ,0 
'  ERROR  .’.,0... 

OCOO  ODOAOO 

CRLF:  DB 

CR.LF.O 

0C03  bo 
ogp4  ,o.Q . 

DCLPOS:  DB 
TTYCTS:  DB 

0 

0 

; FORCE  A  CHECK  OF  LP  OUTPUT  STATUS 

; CHRACTERS  TO  SEND  COUNT  FOR  TTY . 

0C05  00 

0C06  00 

CRTCTS:  DB 
LPTCTS:  DB 

0 

0 

;  CRT 

;  LPT  . 

0C07  oo 

0C08  oo 

MDCTS:  DB 
DBDCTS:  DB 

0 

0 

;  MODEM 

; OUTPUT  STATE  MACHINE  FOR  DBP . 

IF 

INTIHP 

.  0C09  00 

OCOA  ADOE 

CRTB:  DB 

CRTGET:  DW 

0 

CRTBUF 

; NUMBER  OF  CHARACTERS  IN  THE  CRT  BUFFER 

! POINTER  TO  NEXT  CHAR  TO  BE  TAKEN  . 

OCOC  ADOE 

CRTPUT:  DW 

ENDIF 

CRTBUF 

; POINTER  TO  NEXT  POSITION  TO  STORE  CHAR 

PAGE 
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. IF . HI  71 . 

OCOE  1400  DPB17S:  DW  20  ;SEC  PER  TRACK 

0C1003  DB  3 

oci'i  07 . DB . 7 . 

0C12  00  DB  0 

0C13  5B 66  ’  ’  DW . 91 . ;blSK  SIZE  (IN  K)  -  1 . 

pci?  3F00  DW  63 

0C17  CO  DB  192 

0C18  00  DB  0 

0C19  1000 . bw . 16 . 

0C1B  0300  DW  3 

. ENDIF . 

. IF . H47T  OR  H67T . 

. DPBOSS:  DW  26  j SECTORS  PER  TRACK 

DB . 3,7,0 . ; BLOCK  SHIFT i  BLOCK  MASK,  EXTENT  MASK 

DW  242  jDISK  SIZE  -  1 

DW . 63 . ;DIR  MAX 

DB  192.0  JALLOCO. ALLOC 1 

DW  16  ; CHECK  SIZE 

. DW . 2 . ;  OFFSET 

DPBOSD:  DW  26  . ;  SECTORS  PE R  ‘  TRACK . 

DB  4,15.1  ; BLOCK  SHIFT,  MASK,  EXTENT  MASK 

. DW .  246 . -DISK  siZE  -'  i . 

DW  127  ;DIR  MAX 

. DB . OCOH ,  OOOH . VALLbCAT  ION . 

DW  32 

. DW . 2 . 


DPBODS :  DW  52 

.  DB  ..  . 4, 1? ,0 

DW  242 

DW  127 

’  ’  db . OCOHVboOH 

DW  32 

. bw .  2 


DPBODD:  DW  52 

DB  4,15,0 

DW  '493 . 

DW  255 

. db . dFbHVbOOH 

DW  64 

. DW . 2 . 

ENDIF 


IF  H47T  AND  H47ED 

bPBbES:'  bw . 64 . 

DB  4,15,0 

. DW . 299 . 

DW  127 

. D6 . PPbH.'dObH . 

DW  32 

. btf . 2 . 
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DPBOED:  DW  64 

. DB . 4,'i$Yti  "• 

DH  607 

. DW . 25$ . 

DB  OFOH, 000H 

. DW . '64 . 

DW  2 

. END'lf . 
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IF  H17T  . 

. 0C1D  0 102090A 1 1 XLT 1 7 : 

DB 

1 *2,9 ♦ 10, 17, 18 

0C23  05060D0E 

DB 

5*6,13,14  . 

OC‘2'7  03640B6C13 

DB 

3,4*11,12,19.20 

0C2D  07080F10 

DB 

END  IF 


.  IF 

H47T  OR  H67T 

XLTOS;  DB 

1.7.13*19,25  . 

.  •  DB 

5,11,17.23 

DB 

3,9.15*21  . 

DB 

2,8,14,20,26 

DB 

6,12,18,24  . 

.  DB 

4,10,16,22 

JCLTOD:  DB 

1,2,19,20,37,38 

DB 

3,4,21^22,39,40 . 

.  '  ' *  DB 

5,6,23,24,41,42 

DB 

7,8*25,26,43,44  . 

DB 

9,10,27,28,45.46 

DB 

11,12,29,30,47*4$  . 

.  DB 

13,14,31,32,49,50 

DB 

15,16.33,3^51,52  . 

.  DB 

17,18,35,36 

ENDIF 
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;  HOST  BUFFER  FLAGS'  THAT  MUST  BE  INITIALIZED  ’  AT  ASSEMBLY  ’  TIME] 

. . . . . . . 


0C3.1.00  HSTACT  DB _  0 .  ;  HOST  BUFFER  ACTIVE  FLAG 

0C32  '66 . HSTVRT  DB . 6 . ; HOST  BUFFER  PENDING  WRITE  FLAG 

p£33  00 . UNACNT  DB . 0 . j  UNALLOCATED .  RECORD  .COUNT . 


OC34. . HSTBUF  .  .EQU . $ 


■  THE  FOLLOWING  "ONE-TIME"'  CODE  GETS  OVERLAID  BY  DISK  BUFFERS 
;  AND  POSSIBLY  RUN-TIME  VARIABLES. 


;  BOOT 

-  EXECUTED  FOR  COLD  START 

0C34  F3 

• 

CBOOT: 

DI 

0C35  31050F 

LXI 

SP. STACK 

0C38  3A3400 

LDA 

DEFIOB 

; SET  THE  DEFAULT  IOBYTE 

0C3B  320300 

STA 

IOBYTE 

0C3E  3EC3 

MVI 

A,MI$JMP 

0C40  211B08 

LXI 

H, CLOCK 

; ESTABLISH  POINTER  to  CLOCK  INT  'SERVICE  ROUTINE 

0C43  320800 

STA 

CLKVEC 

6C46  220900 

SHLD 

CLKVEC+1 

IF 

INTINP 

0C49  219B09 

LXI 

H,CRTISR 

; POINTER  TO  CRT  INTERRUPT  SERVICE  ROUTINE 

oc4C  321660 

StA  '■ 

serVec 

;AT  SERIAL  VECTOR 

0C4F  221900 

SHLD 

SERVE C+1 

END  IF 

0C52  21ODO0 

LXI 

H,CTLPRT 

;GET  THE  CURRENT  VALUE  OF  THE  RAM  AT  0  PORT 

0C55  7E 

MOV 

A,M 

;  ESTABLISHED  BY  BLDR 

OC56  D 3F2 

out 

h88cTL 

; RESET  THE  CLOCK  ON  THE  H/ZB9 

. OC'58'23 . 

I  NX 

H 

; POINT  TO  H8FLA0 ' 

0C59  7E 

MOV 

A,M 

. . 0C5AB7 . 

' '  ORA' '  ’ 

"A 

;TF  0  THEN  RUNNING  ON  H/289' 

0C5B  CA600C 

JZ 

CBTO 

;  THEN  DON’T  OUTPUT  TO  360Q 

. 0C5E  D3F0 . 

♦ 

* 

out ' 

H8CTL' 

V  '  'ELSE 'CONTAINS ' H8TR  TO 'RESET'  H8 ' CLOCK . 

;  INITIALIZE  8251  (ONLY  IF  USED)  . 

» 

0C66  3A3600 

CBTO: 

LDA 

MODE 

•FIRST,  ASSUME  IT  IS  NOT  USED 

0C63  E6FE 

ANI 

OFFH-MODEBO 

0C65  323S66 

StA 

MODE 

(  (  (  (  (  (  (  (  ( 


) 


) 
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OC68  3A0E00 

. 0C.GB.B7. . 

LDA 

ORA 

H8FLAG 

A 

5 IF  ON  Z/H89  . 

;  THEN  THE  CONSOLE  IS  NOT  AN  H8-5 

0C6C  CA9FOC 

JZ 

CBT1 

; CONSOLE  ON  H8-4  CARD 

OC6F  213700 

. Qp72  7E 

0C73  C603 

. 0C.75  32A50E 

LXI 

MOV 

H  ,  H84PT 1 

A,M 

;GET  BASE  PORT  NUMBER 

ADI 

STA 

3 

OUTH84+1 

;SEE  IF  YOU  CAN  GET  A  RESPONSE  FROM  8250  1?  350Q 

0C78  F5 

0C79  3E03 

PUSH 

MVI 

PSW 

A, 3 

;SET  8  BIT  WORDS 

0C7B  CDA40E 

0C7E  FI 

CALL 

POP 

OUTH84 

PSW 

0C7F  CD8E0B 

0C82  FE03 

CALL 

CPI 

PIN 

3 

0C84  CA9F0C 

. 0C87.  3A3.600  . 

JZ 

LDA 

CBT1 

MODE 

; CONSOLE  ON  h8-4  CARD  . 

0C8A  F601 

0C8C  323600 

OR  I 

STA 

MODEBO 

MODE 

; CONSOLE  MUST  BE  ON  W8-5  CARD  THEN . 

;  SO  SET  MODE 

0C8F  3E15 

MVI 

A,  15H 

; DUMMY  MODE  BYTE 

0C91  D3FB 

OUT 

H85CRT+i 

0C93  3E40 

0C95  D3FB 

MVI 

OUT 

A.40H 

H85CRT+1 

; RESET  8251  . 

0C97  3E4E 

MVI 

A.4EH 

;8  BIT  WORDS,  1  STOP  BIT,  NO  PARITY 

0C99  D3FB 

OUT 

H85CRT+1 

IF 

MVI 

NOT  INTINP 
A.15H 

; ENABLE  TX  AND  RX  WITH  INTERRUPTS  OFF 

ENDIF 

IF 

INTINP 

0C9B  3E17 

MVI 

ENDIF 

A,17H 

;  ENABLE  TX  AND  RX  Wlffi  INTERRUPTS  ON . 

0C9D  D3FB 

OUT 

H85CRT+1 

• 

t 

;  NOW 

INITIALIZE  THE  8250S 

0C9F  2A3800 

CBT1 : 

LHLD 

CRTBAUD 

;PICK  UP  BAUD  RATE 

0CA2  3A3700 

0CA5  CD640E 

LDA 

CALL 

H84PT1 

IN8250 

;  AND  THE  PORT  NUMBER  . 

; INITIALIZE  THIS  UART 

f 

IF 

INTINP 

0CA8  3A3700 
OCAB  3C 

LDA 

INR 

H84PT1 

A 

; POINT  TO  INTERRUPT  ENABLE  REGISTER 

OCAC  32A50E 
OCAF  3E01 

STA 

MVI 

6uth'84+i 

A.  1 

; ENABLE  RECEIVER  INTERRUPTS 

0CB1  CDA40E 

CALL 

ENDIF 

OUTH84 

0CB4  2A3B00 

LHLD 

TTYBAUD 

0CB7  3A3A06 
OCBA  CD640E 

LDA 

CALL 

H8'4PT2 

IN8250 

OCBD  2A3E00 

* 

t 

LHLD 

LPTBAUD 
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OCCO  3A3DOO 
..0CC3.CD640E 

LDA 

. .  CALL  . .. 

H84PT3 
.  IN825G . . . 

0CC6  244 1Q0 

• 

LHLP 

BPPB.AU  P. . 

0CC9  3A4000 
QCCC  CP64QE 

LDA 

. CALL... 

H84PT4 
.  JN.8.25Q. . . 

;  PRINT  SIGNON 

MESSAGE,. 

OCCF  21340D 

LXI 

H . SMSGO 

; PRINT  THE  SIGNON  MESSAGE 

0CD2  CD9D0B 
0CD5  3E10 

CALL 

MVI 

PMSG 

A , ( BIOSEND+255 ) /256  {FINE  OUT  NEWLY  RELOCATED  SIZE 

0CD7  IF 

OCDB  .IF. . . 

RAR 

PAR 

;GET  THE  VALUE  IN  K  BY  DIVIDING  BY  4 
;  (PONE  4T  HUN  TIME  FOR  RELOCATION) 

0CD9  E63F 

OQPP  .C2E.QQC. . . 

ANI 

JNZ 

03FH 

CB00T1 

;IF  THE  TOP  OF  MEMORY  IS  NOT  OOOOH 

OCDE  3E40 

OCEO  CD480E 

MVI 

CB00T1 :  CALL 

A,  64 

TYDN 

;  ELSE  TAKE  CARE  OF  THE  64K  CASE 
;TYPE  A  2  DIQIT  DECIMAL  NUMBER 

0CE3  21380D 
0CE6  CD9D0B 

LXI 

CALL 

H.SMSG1 

PMSG 

• 

;  DO  INITIALIZATION  FOR 

♦ . 

BOOT  DEVICE. 

0CE9  3A4900 

CBI:  LDA 

BBDA 

;GET  BOOT  DEVICE  BASE  PORT  # 

OCEC  32800D 

STA 

CBIB 

OCEF  21070D 
0CF2  E5 

LXI 

PUSH 

H.CBI1 

H 

;SET  RETURN  ADDR 

0CF3  3A0400 

LDA 

LOGDSK 

;GET  BOOT  UNIT  # 

0CF6  4F 

MOV 

C,  A 

0CF7  3A4800 
OCFA  E6E0 

LDA 

ANI 

BBDF 

DPETYPE 

;GET  BOOT  DEVICE  FLAGS 

IF 

H17T 

OCFC  Ffc4o' 

OCFE  CA820D 

. CPI  •  •  • 

JZ 

PPEHi7 

CBH17 

;BR  IF  H17 

ENDIF 

IF 

CPI 

H37T 

DPEH37 

JZ 

ENDIF 

CBH37 

;BR  IF  H37 

IF 

H47T 

CPI 

JZ 

DPEH47 

CBH47 

;BR  IF  H47 

ip . ri  6tt . 

CPI  DPEH67H 

Jz . cbh'6Y . Vbr’ifhSY 

ENDIF 


( 


(. 


( 


( 


( 


)  ) 

) 

)  )  )  ) 

) 

) 
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ODOI  0E07 

MVI 

C , BELL 

JBIOS  IS  NOT  SET  UP  TO  HANDLE 

0D03  CD0109 

0D06  76 

CALL 

HLT 

CONOUT 

;  BOOT  DEVICE 
:HALT  EVERYTHING 

•  .  . . 

;  DO 

* 

INITITIALIZATION  FOR 

OTHER  DISK  DEVICE  (IF  ANY). 

0DO7  AF 

CBI1: 

XRA 

A 

; INDICATE  NOT  BOOT  DEVICE 

OD'0'8  327FOD 

STA 

CBIA 

. ODOB'  '3A800D . 

ODOE  EE04 

LbA 

XRI 

CBIB 

7CH-78H 

; SWITCH  BASE  PORT  # 

; DRIVE  BASE  PORT  #’S  ARE  78H  &  7CH 

CD  10  32'SOOD 

STA 

CBIB 

;  WHICH  DIFFER  ONLY  AT  BIT  2 

CD  13  21240D 

0D16  E5 

LX  I 
PUSH 

H, CBI2 

H 

;SET  RET  ADDR 

0D17  3A4800 

LDA 

BBDF 

;GET  DEVICE  FLAGS  OF  BOOT  DEVICE 

. obfALeeo . 

0D1C  OEOO 

ANI 

MVI 

DPETYPE 

C,0 

;MASK  FOR  DRIVE  TYPE 
; 1ST  UNIT  IS  UNIT  0 

IF 

H17T 

. OD'l'E '  FE40 . 

0D20  C2820D 

CP  I 

JNZ 

DP  EH 17 
CBH17 

;BOOT  DEVICE  HI 7 

;IF  NOT,  THEN  OTHER  DEVICE  IS  HI 7 

ENDIF 

IF 

CPI 

H37T 

DPEH37 

;BOOT  DEVICE  H37 

JNZ 

ENDIF 

CBH37 

;IF  NOT,  THEN  OTHER  DEVICE  IS  H37 

IF 

H47T 

CPI 

JNZ 

DPEH47 

CBH47 

;BOOT  DEVICE  H47 

;IF  NOT,  THEN  OTHER  DEVICE  IS  H47 

. ENDIF' . 

"IF . 

CPI 

H6'7T 

DPEH67H 

JBOOT  DEVICE  H67 

JNZ 

ENDIF 

CBH67 

; IF  NOT,  THEN  OTHER  DEIVCE  IS  H67 

0D23  El 

POP 

H 

;N0  OTHER  DEVICE,  DISCARD  RET  ADDR 

CBI2: 


’  •  FINISH  COLD  *  feOOt  *  AMD '  S  IGN  *  ON.' 


QD24  AF 

XRA 

A 

;MAKE  A  THE  DEFAULT  DRIVE 

. OD'25  320400' . 

. 'STA' ' ' ' 

' ' LOCbSK  . 

. 0D28‘  2‘tOOOO . 

0D2B  224EO0 

.  rxr ' ' 

SHLD 

M.BIbS 

BBIOS 

; PLACE  ADDRESS  OF  START  OF  BIOS 
;  IN  PAGE  ZERO 
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QD2E  FB. . El . 

QD2£ . 3&QQ . KYI . A.,BT$CD . ; F^AQ .  AS .  A.  COLD  BOOT 

0D31  C32A01  JMP  GOW 


0D34  ODOAOAOO  SMSGO:  DB  CR,LFtLF,0 

od.38  .  mQmw.\suw\  :..sm . '.k  .  heatb/zeniih  .  cp./.m.  2.2x» . 

0D50  303320  DB  VERS/ 10+? O' t( VERS  MOD  10)+'0f  f LEVEL 

0P5.3 . 2.0.30 3.8.2F32 . DB . . MQNTH/.1. 0+.'Q * , (MONTH  .MOD  .  1 0 ) + *0 * DAY / 1 0+ 1 0 \ 

0D58  382F3831  DB  (DAY  MOD  10)+’0’ , '/' .YEAR/IO+’O’ .(YEAR  MOD  l6j+»Of 

0P5.C .  PP.QA . P.B . CR.LF . 

0D5E  464F52  DB  ’FOR1 

.  ..IF  H17T  . 

0D61  20483137  DB  '  HIT' 


. JWWF. . 

IF  H37T 

. DB . ;..H37.» . 

E  ND  IF 

...IF..  H47T 

DB  ’  H47* 

ENDIF 

.  IF  H67T 

DB  1  H67' 

ENDIF . 

OD65  2044 495 34B  DB  '  DISKS’ 

000 1 '  = . WRKVARX  EQU . PARTITN '  OR  H67PART2  OR  INTINP  OR  BRKKEY  OR  TOD'  OR  EVENT 

0001  =  WRKVAR  EQU  WRKVARX  OR  H37ED  OR  H47ED 

. IF . WRKVAR . 

0D6B  2057495448  DB  1  WITH  OPTION(S)  ’ 

. IF . PARTITN . 

DB  ’P* 

. ENDIF . 

....  IF  . H67PART2 . 

DB  ’2’ 

ENDIF 

. IF . TOD . 

DB  fT' 

. ENDIF . 

IF  EVENT 

. DB . *E‘ . 

ENDIF 

. iF . iNT'iNP . 

0D7B  49  DB  'I' 

. ENDIF . 

IF  BRKKEY 

. DB . ’B' . . 

ENDIF 

. IF . H37ED . 

DB  'E3' 

.  ENDIF  . 

IF  H47ED 

. DB  *E4' . 

ENDIF 

.  ENDIF  . 

0D7C  ODOAOO  DB  CR,LFfO 


((((((((((( 


)  )  ,  )  )  )  )  )  )  ) 
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OD7F  01 

CBIA: 

DB 

1 

,.}0  S.  INIT.  A.S.  OTHER.  DEVICE . 

0D80 

CBIB: 

DS 

1 

; 1  =  INIT  AS  BOOT  DEVICE 

c'Btc: 

DB 

0 

; LOGICAL  DRIVE  # 

IF 

H17T 

;  COLD 

BOOT 

INIT  ROUTINE  FOR 

HI  7- 

0D82  3A800D 

CBH17: 

LDA 

CBIB 

; CHECK  IF  VALID  BASE  PORT  #  . 

OD87  CO 

'  c'p'i  * ' 
RNZ 

7CH 

^ONLY  7CH  ALLOWED  . 

OD88  0603 

MV  I 

B.H17ND 

.  OtfflA  1600' 

OD8C  CD9COD 

MVI 

CALL 

D,  (bPEO-bPBASE)/DPEL 

CBTFIL  ;FILL  IN  DRIVE  MAP  TABLE  . 

0D8F  3E10 

MVI 

A, DFMO 

. OD9T320FOO"' 

‘  SYA 

DEVCTL 

. OW3A7F0f>"' 

0D97  A7 

LDA 

ANA 

CBIA 

A 

; CHECK  IF  BOOT  DEVICE 

. 0D98'  CC2906’ ' ' 

'  C'Z  "  * 

Resh i 7 

; IF  NOT,  THEN  RESET  DEVICE 

0D9BC9 . RET 

ENDIF 


IF  H37T 

t 

;  H37  COLB  BOOT  INIT  ROUTINE. 


.  CBM37:  LDA 

CPI 

CBIB 

78H 

; CHECK  IF  VALID  BASE  PORT  # 

;OKLY  78H  ALLOWED 

B,H37ND 

MVI 

D,  (DPE37$0- 

-DPBASE)/DPEL  . 

CBTFIL 

;FILL  IN  DRIVE  MAP*  TABLE 

A,MI$'JMP 

; INSTALL  H37  INTERRUPT  SERVICE  ROUTINE 

LXI 

H.H37ISR 

"H37VEC . 

SHLD 

H37VEC+1 

LDA 

CBIA 

ANA' 

JZ 

A 

RESH37 

LXI 

H,DLYM037 

;INIT  VALUES  . 

XRA'  ‘ ' 
MOV 

A 

M,  A 

INX 

MOV 

■•’H . 

M,  A 

(  (  .  (  (  (  (  (  {  (.  •  (.  C 


')  ) 

) 

) 

)  ) 

)  )  ) 
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MVI 

STA 

A.CONMO 

H37CTL 

;INIT  CONTROL  REG  IMAGE 

RET 

END  IF 

* 

IF 

H47T 

J  H47 

• 

t 

COLD  BOOT  INIT  ROUTINE. 

CBH47: 

MVI 

B.H47ND 

MVI 

CALL 

D,  (DPE47$0-DPBASE)/DPEL 

.  CBTFIL . {FILL  IN  DRIVE  MAP  TABLE . 

LDA 

CBIB 

;SET  PORT  #*S 

%: 

IF 

H47CTL 

H47CTL 

NE  0 

ENDIF 

STA 

H47INS1 

; STATUS  PORT  0 

STA 

INR 

H470UTC1 

A 

; CONTROL  PORT  # 

%: 

IF  H47CTL+1-H47DAT 

H47DAT  NE  H47CTL+1 

ENDIF 

STA 

H47IND1 

{ INPUT  DATA  PORT  9 

STA 

H470UTD1 

{OUTPUT  DATA  PORT  9 

LDA 

CPI 

CBIB 

7CH 

; CHECK  BASE  PORT  ADDR 

JNZ 

MVI 

CBH472 

B.H47ND 

;  BR  IF  NOT  PORT  7CH 

LXI 

LXI 

DtDPEL 

H  *  DPE47$0+DPEFLAG 

CBH471: 

MOV 

ORI 

A,M 

DPEP7C 

;SET  PORT  7CH  FLAG 

MOV 

DAD 

M,A 

D 

DCR 

JNZ 

B 

CBH471 

CBH472: 

LDA 

CBIA 

; CHECK  IF  BOOT  DEVICE 

ANA 

CZ 

A 

RESH47 

;IF  NOT,  THEN  RESET  DEVICE 

RET 

• 

V 

IF 

H67T 

.  ;  H67 

» 

COLD  BOOT  INIT  ROUTINE. 

CBH67: 

IF 

H67PART2 
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LDA 

An; 

BBDF 

DPETYPF 

;Q.  BOOTED  FROM  FLOPPY 

CPI 

JNZ 

DPEH67F 

CBH670 

;  BR  IF  NOT  . 

CBH670: 

INR 

C 

JBUMP  LOGICAL  UNIT  # 

.  i 

END IF  j 

.  i 

MVI 

MVI 

B,H67ND 

D.(DPE67*0-DPBASE)/DPF.L  . 

CALL 

CBTFIL 

; FILL  IN  DRIVE  MAP  TABLE 

LDA 

IF 

CBIB 

HDiDAT 

;SET  PORT  #’S 

X: 

HD$DAT  NE  0 

ENDIF  . 

STA 

STA 

H67IND1 

H670UTD1 

; INPUT  DATA  PORT  # 

:OUTPUT  DATA  PORT  # 

INR 

IF 

A 

(HD$DAT+1-HD$STA)  OR  (HD$DAT+1-HD$C0N)  . 

i: 

(HD$STA  NE  (HD$DAT+1))  OR  (HD$CON  NE  (HD$DAT+1 ) ) 

ENDIF  . 

STA 

STA 

H67INS1 

H670UTC1 

; STATUS  PORT  # 

;CONTROI,.PORT.# . 

. . 

LDA 

CBIB 

;  CHECK  BAS£  PORT.AP.PR . 

CPI 

JNZ 

7CH 

CBH672 

;  BR  IF  NOT  PORT  7CH 

MVI 

LXI 

B.H67ND 

D.DPEL 

. 

CBH671: 

LXt . 

MOV 

H,DPE6?$0+DPEFLAG 

A,M 

ORI 

MOV 

DPEP7C 

M,A 

;SET  PORT  7CH  FLAG 

DAD 

DCR 

D 

B 

JNZ 

CBH671 

CBH672: 

LDA 

ANA 

CBIA 

A 

I CHECK  IF  BOOT  DEVICE 

JZ 

RESH67 

;IF  HOT,  THEN  RESET  DEVICE  &  RET 

IF 

LDA 

PARTITN 

BBDF 

;GET  BOOT  DEVICE  FLAGS 

ANI 

CPI 

DPETYPF 

DPEH67H 

; CHECK  FOR  HARD  DISK 

RNZ 

;RET  IF  NOT  HARD  DISK 

LDA 

ORI 

DPE67$6+DPEFLAG 

DPEASGN 

;MARK  PARTITiON  IS  ASSIGNED 

STA 

LHLD 

DPE67$0+DPEFLAG 

BBP 

;GET  SECTOR  #  FOR  BEGINNING 

SHLD 

LHLD 

DPE67$04-DPETRK 

BUPB 

;  OF  PARTITION 

;GET  LAST  SECTOR  #  +  1 

SHLD 

ENDIF 

DPE67$0+DPEUPB 

;  OR  PARTITION 

(  (  ( 

( 

i  (  ( 

( 

( 

(  ( 

) 


) 


) 


> 
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:  CBTFIL  -  FILL 

,  THE  LOGICAL 

.  TO.  PHYSICAL.  MAPPING.  TABLE . 

;  FOR  REAL  DRIVES. 

;  DRIVES  PLUS  SET 

THEN  DO  THE  SAME  FOR  THE  IMAGINARY 

UP  THE  IMAGINARY'S  LINK  TO  HIS 

.  ;  CORRESPONDING  REAL  DRIVE. 

;  UPON  ENTRY 

• 

'  —  (B)  =  #  DRIVES 

(C)  =  STARTING  UNIT  &  . 

« 

A 

(D)  =  STARTING  DRIVE  MAP  # 

(CBIC)  =  NEXT  LOGICAL  DRIVE  #  TO  BE  ASSIGNED . 

;  UPON  EXIT 

:  uses 

--  (CBIC)  UPDATED 

—  ALL  . 

• 

t 

0D9C  210000 

CBTFIL: 

LX  I 

H,0 

;INIT  CBTIA  . 

0D9F  22460E 

SHLD 

CBTIA 

0DA2  C5 

'  CtffFlLY: . 

PUSH 

B 

.  0DA3  D$ 

Push 

D 

0Da4  3A7F0D 
0DA7  A7 

LDA 

ANA 

CBIA 

A 

;IF  BOOT  DEVICE  THEN  INSURE 
;  BOOT  UNIT  IS  MARKED  REAL 

0DA8  C4300E 

CNZ 

CBTF7 

ODAB  AF 

ODAC  CDC10D 

XRA 

CALL 

A 

CBTFO 

; INDICATE  REAL  CYCLE 
; HANDLE  REAL  DRIVES 

ODAF  Dl 

POP 

D 

. ODBO  ‘Cl . 

. POP"'' 

B 

0DB1  2A460E 
0DB4  7C 

LHLD 

MOV 

CBTIA 

A,  H 

5 IF  NO  REAL  DRIVES  THEN  MARK 
;  1ST  AVAILABLE  DRIVE  AS  REAL 

0DB5  B5 

0DB6  C2BF0D 

ORA 

JNZ 

L 

CBTFIL2 

;  BR  IF  REAL  DRIVE  FOUND 

0DB9  CD300E 

CALL 

CBTF7 

;MARK  1ST  AVAILABLE  DRIVE  REAL 

ODBC  C3A20D 

JMP 

CBTFIL 1 

;G0  THRU  REAL  DRIVE  CYCLE  AGAIN 

CBTFIL2:  . 

ODBF  3E01 

MVI 

A.  1 

; INDICATE  IMAGINARY  CYCLE 

.  ;  THIS  SECTION  OF  CODE  IS  RAN  THROUGH  TWICE. 

;  FIRST  TIME  IS  FOR  HANDLING  THE  REAL  DRIVES.  . 

;  SECOND  TIME 

is  FOR  HANDLING  THE  IMAGINARY  DRIVES. 

ObCl'  324‘5’0£ 

CBTFOV '  'STA 

Obtfa 

;SAV£  TYPE  OF  CYCLE  INDICATOR 

.  0DC4  58' 

MOV 

E,B 

;COPY  OF  #  DRIVES 

.  Oi)'C5  79 

0DC6  B8 

CBTF1 :  MOV 

CMP 

A,C 

B 

;GET  THIS  DRIVE'S  NUMBER 
;MOD  9  DRIVES 

. ODCr  D'ACBOD ' 

ODCA  90 

. -je . 

SUB 

CBTF2 

B 

(  (  (  (  (  (  (.  1  c  (  i 


) 


) 
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ODCB  82 

CBTF2: 

ADD 

D 

; COMPUTE  DISK  ENTRY  TABLE  TO  USE 

ODCC  C5 

ODCD  47 

ODCE  3A810D 

. QPP.l  .87 . 

0DD2  87 

. QPP.3.87 . 

POSH 

MOV 

LDA 

ADD .... 
ADD 
ADD. . . . 

B 

.  .P»A . 

CBIC 

..A . 

A 

..A . 

. ^COMBINE.  .WIDAL.  .ANP.  .MAPPED .  PRIYE.  ’  S . 

;  BIT  7-4  =  LOGICAL 

. ; .  BIT .  3.-.Q  .  =.  MAPPED . 

0DD4  87 

0DP5  80- 

ADD 

ADD .... 

A 

..B . 

0DD6  47 

0DP7  D5 

MOV 

PUSH. . . 

B,  A 

.  .P . 

;(B)  =  LOGICAL/MAPPED  DRIVE  #'S 

0DD8  CDAB08 
ODDB  EB 

CALL 

XC.HQ. 

GETDPEX 

;GET  ADDR  OF  DPE’S  HEATH  EXTENSIONS 
. :(PE.)=  HEATH.  EXTENSIONS 

ODDC  210600 
.  .QDDF  19 

LXI 

PAD .... 

H , DPEFLG2-DPEHTH 

. 

ODEO  7E 

0DE1  E602 

MOV 

ANI 

A,M 

DPEIMG 

. ICHL.QS.  JE  .IMAGINARY.  DRIVE 

0DE3  3A450E  ' 
0DE6  C2040E 

LDA 

JNZ 

CBTFA 

CBTF3 

;GET  CYCLE  INDICATOR  ALSO 

J.BR  IF  IMAGINARY  DRIVE 

:  HANDLE  REAL 

DRIVE  IF  THIS 

IS  REAL  DRIVE  CYCLE. 

0DE9  A7 

ODEA  C2190E 

ANA 

JNZ 

A 

CPTF4 

. . . .  .;.br  .  IE  .THIS .  IS  NQT.  .REAL  .PRIVE .  C.YQLP 

ODED  E5 

PUSH 

H 

;IF  THIS  is  FIRST  REAL  DRIVE  ENCOUNTERED 

ODEE  2A460E 

ODF 1  7C 

LHLD 

MOV 

CBTIA 

A,H 

;  THEN  REMEMBER  ITS  HEATH  EXTENSION 
;  ADDRESS 

0DF2  B5 

0DF3  E 1 

ORA 

POP 

L 

H 

ODF 4  C2FC0D 
0DF7  EB 

JNZ 

XCHG 

CBTF2A 

ODF 8  22460E 
ODFB  EB 

SHLD 

XCHG 

CBTIA 

ODFC  23 

CBTF2A : 

INX 

H 

: PLACE  LOGICAL/KAPPED  IN  DPELUN  SLOT 

. 

IF  DPEFLG2+ 1 -DPELUN 

(DPEFLG2+1 )  NE  DPELUN 

ODFD  70 

END  IF 
MOV 

M,B 

ODFE  CD210E 

CALL 

CBTF6 

;MAP  DRIVE 

0E01  C3190E 

JMP 

CBTF4 

;  HANDLE  IMAGINARY  DRIVE  IF 

THIS  IS  THE  IMAGINARY  DRIVE  CYCLE. 

0E04  A7 

0E05  CA190E 

CBTF3: 

ANA 

JZ 

A 

CBTF4 

;BR  IF  THIS  IS  NOT  IMAGINARY  DRIVE  CYCLE 

0E08  E5 

PUSH 

H 

:(DE)  =  ADDR  OF  HEATH  EXTENSIONS 

; (HL)  =  ADDR  OF  2ND  FLAG  BYTE 

0E09  CD210E 

CALL 

CBTF6 

;MAP  DRIVE 

Ofedc  2A460E 
OEOF  0E08 

LHLD 

MVI 

CBTIA 

C.DPEHL 

;MOVE  THE  REAL  DRIVE'S  TABLE 
;  INTO  THIS  IMAGINARY  DRIVE’S  TABLE 
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0E1 1  CDB908 

CALL 

MOVE IT 

OE14  El 

POP 

H 

; (HL)  =  ADDR  OF  2ND  FLAG  BYTE 

0E15  7E 

MOV 

.A.M . 

OE16  F602 

ORI 

DPEIMG 

; REMARK  AS  IMAGINARY  DRIVE 

0E18  77 

.  .MOV. . . 

.M,A. . 

OEI?  D1 

CBTF4: 

POP 

D 

0E1A  Cl 

POP 

B 

0E1B  OC 

INR 

C 

; ROUND  ROBIN  TO  NEXT  DRIVE 

0E1C  ID 

DCR 

E 

; COUNT  THIS  ONE  AS  DONE 

0E1D  C2C50D 

JNZ 

CBTF1 

0E20  C9 

RET 

;  PLACE  MAPPED  DRIVE  # 

INTO  MAP  DRI.VE  TABLE.... 

;  (B) 

=  MAPPED 

DRIVE  # 

0E21  3A810D 

CBTF6: 

LDA 

CBIC 

;GET  LOGICAL  DRIVE  9 

0E24  214000 

LXI 

H.BDMAP 

;GET  ADDR  OF  MAP  DRIVE 

0E27  CD9508 

CALL 

DADA 

;  TABLE  SLOT 

0E2A  70 

MOV 

M,B 

1 PLACE  MAPPED  DRIVE  #  THERE.. 

0E2B  21810D 

LXI 

H.CBIC 

;BUMP  VALUE  NEXT  LOGICAL  DRIVE  # 

0E2E  34 

INR 

M 

0E2F  C9  RET 


J  INSURE  1ST  DRIVE  OF  GROUP  IS  REAL  DRIVE  (NOT  IMAGINARY). 
;  THE  1ST  DRIVEHAS  TO  BE  MARKED  REAL  SO  IMAGINARY  DRIVES,. 


;  IF 

ANY,  HAVE 

A  REAL  UNIT  TO 

USE. 

0E30  C5 

CBTF7 : 

PUSH 

B 

0E31  D5 

PUSH 

D 

OE32  79 

0E33  82 

MOV 

ADD 

A,  C 

D 

;GET  ADDR  OF  HEATH  EXTENSIONS 

0E34  CDABdS 
OE37  22460E 

CALL 

SHLD 

GETDPEX 

CBTIA 

;SAVE  ADDR  OF  ITS  DPE'S  HEATH 

0E3A  110600 

LXI 

;  EXTENSIONS  FOR  IMAGINARY  DRIVES 

D, DPEFLG2-DPEHTH 

0E3D  19 

0E3E  7E 

DAD 

MOV 

D 

A,M 

0E3F  E6FD 

0E41  77 

ANI 

MOV 

OFFH-DPEIMG 

M.A 

; MARK  REAL  (NOT  IMAGINARY) 

0E42  D1 

POP 

D 

0E43  Ci 

POP 

B 

0E44'  C9 

RET 

0E45 

CBTFA 

DS 

1 

; CYCLE  TYPE  INDICATOR  SLOT 

.  . 0E4’6 . 

CBTIA 

DS 

2 

; ADDR  OF  REAL  DRIVE'S  DPE  HEATH  EXT. 
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;  TYDN 

-  TYPE 

A  TWO  DIGIT  DECIMAL  NUMBER  ON  CONSOLE 

• 

t 

...... 

ENTRY 

A  VALUE 

OE48  OEOO 

TYDN: 

MVI 

C,0 

; INITIALIZE  QUOTIENT 

0E4A  D60A 

TYDN 1 : 

SUI 

10 

; REPEATEDLY  SUBTRACT  10 

0E4C  DA530E 

JC 

TYDN2 

;IF  UNDERFLOW 

0E4F  OC 

INR 

C 

; ELSE  iNCREMENT  THE  QUOTIENT 

0E50  C34A0E 

JMP 

TYDN1 

; AND  SUBTRACT  AGAIN 

0E53  C60A 

TYDN2 : 

ADI 

10 

‘.CORRECT  THE  UNDERFLOW 

0E55  F5 

PUSH 

PSW 

;sAve  THE  REMAINDER 

0E56  79 

MOV 

A,C 

;GET  THE  QUOTIENT 

0E57  C630 

ADI 

030H 

; ASCII  ADJUST  if  . 

0E59  4F 

MOV 

C,  A 

0E5A  CDOIO'9 

CALL 

CONOUT 

;SEND  IT  TO  CONSOLE  . 

0E5D  FI 

POP 

PSW 

; RECALL  REMAINDER 

0E5E  C630 

ADI 

030H 

; ASCII  ADJUST 

0E6O  4F 

MOV 

C,A 

0E'6i  "C30 109 . JMP . CONOUT . ;  PR  I  NT  if,'  WITH  IMPLiCiT '  RETURN’ 
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. ; .  IN825.Q .-  INITIALIZE  .AN  .825.0. . 

;  HL  CONTAINS  BAUD  RATE  DIVISOR  (WORD) 

. ; . A . .  HAS.  BASE.  P.QBT.  NUMBER . 

• 

t 

OE64  47 

IN8250:  MOV 

B.A 

;SAVE  BASE  PORT  NUMBER  IN  B 

. QS65.  ED. . . . 

. .  .XCHG .... 

. .  .J.MOVE  .BAUD .  RATE.  DIVISOR . TO.  .DE . 

OE66  21A50E 

LX  I 

H.OUTH84+1 

; POINT  TO  PORT  IN  OUT  INSTRUCTION 

0E69  3E03 

MVI 

A, 3 . 

;BAUD  RATE  ACCESS  BIT  ON  BASE+3  PORT 

0E6B  80 

ADD 

B 

;GET  ACTUAL  PORT 

0E6C  4F 

MOV 

C,A 

;SAVE  IN  C  FOR  LATER 

0E6D  77 

MOV 

M,  A 

; AND  MODIFY  OUTPUT  INSTRUCTION 

0E6E  3E83 

MVI 

A,83H 

;SET  DIVISOR  LATCH  ACCESS  BIT 

0E70  CDA40E 

CALL 

OUTH84 

;T0  A  "1" 

0E73  34 

INR 

M 

; POINT  TO  MODEM  CONTROL  REGISTER 

0E74  3E0F 

MVI 

AtOFH 

; AND  SET  DSR  &  CTS  HIGH  FOR  DIABLO 

0E76  CDA40E 

CALL 

OUTH84 

;  AND  OTHER  TERMINALS  WHICH  REQUIRE  THEM 

0E79  70 

MOV 

M,B 

;SET  PORT  TO  LEAST  SIG  BYTE 

0E7A  7B 

MOV 

A,  E 

0E7B  CDA40E 

CALL 

OUTH84 

0E7E  7A 

MOV 

AtD... . 

;NOW  DO  MOST  SIG  BYTE 

0E7F  E60F 

AN  I 

OFH 

; AND  OFF  CONTROL  FLAGS 

0E81  34 

INR 

M 

;0N  NEXT  PORT 

0E82  CDA40E 

CALL 

0UTH84 

0E85  71 

MOV 

M.C 

; RESET  PORT  TO  DIVISOR  LATCH  ACCESS 

0E86  FE04 

CPI 

B110  SHR  8 

; IF  SET  FOR  GREATER  THAN  110 

0E88  3E03 

MVI 

A, 3 

;  THEN  SET  NO  PARITY t  8  BIT  WORDS,  1  STOP  BIT 

0E8A  DA8F0E 

JC 

IN821 

0E8D  F604 

ORI 

4 

;  ELSE  SET  TWO  STOP  BITS  FOR  110  AND  BELOW 

0E8F  CDA40E 

IN821 :  CALL 

OUTH84 

0E92  35 

DCR 

M 

;NOW  SET  PORT  FOR  INTERRUPT  CONTROL 

OE93  35 

DCR 

M 

0E94  AF 

XRA 

A 

; DISABLE  ALL  DEVICE  INTERRUPTS 

0E95  CDA40E 

CALL 

OUTH84 

;DISABLE  INTS 

;  DKlay  For  approximately  two 

CHARACTER  TIMES 

. 0E'98'£B . 

XdHG 

;PUT  BAUD  RATE  DIVISOR  IN  HL 

0E99  29 

DAD 

H 

; MULTIPLY  BY  16  TO  GET  DELAY 

0fc9A  29 

DAD 

H 

0E9B  29 

DAD 

H 

. 0E9C'2'9 . 

. DAD . 

’  H . 

0E9D  2B 

L00P1 :  DCX 

H 

UE9E  7b 

MOV 

A,L 

0E9F  B4 

ORA 

H 

OEAO  C29D0E 

JNZ 

L00P1 

0EA3  C9 

RET 

;  SELF  MODIFYING  OUT  INSTRUCTION  USED  BY  IN8250 


0EA4 

D300 

0UTH84:  OUT 

0 

; PORT  IS  MODIFIED 

0EA6 

C9 

RET 

0273 

- 

CLEN  EQU 

$-HSTBUF 

;C0LD  BOOT  CODE  LENGTH 

(((((((<((( 


) 


) 


) 


) 


) 


) 


) 
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J  . 

»+ 

;  +  . .  IF.  .COJUP . BOOT .  CODE .  I.S . SMALLER  .THAN .  HOST .  BUFFER, 
;+  THEN  FILL  OUT  1 HSTBUF ’  WITH  DS  STATEMENT. 
. IF. . £  CLENrHSTSIZ) .  SHR .  .15 . 


DS  HSTSIZ-CLEN 

*+ . .  OTHERWISE  REORG .  SO.  .RUN-TIME  .VARIABLES.  CAN .  ALSO.  OVERLAY 
;+  COLD  BOOT  CODE. 


OD34 

. ELSE. . . 

ORG 

F.NDTF 

HSTBUF+HSTSIZ 

;+ 

0D34 

DIRBUF :  DS 

IF 

0DB4 

ALVO:  DS 

12 

ODCO 

csvo:  ds 

ODDO 

Am:  ds 

12 

ODDC 

CSV1 :  DS 

ODEC 

ALV2:  DS 

12 

0DF8 

CSV2:  DS 

16  . 

ENDIF 

IF 

H37T 

DPB37$0  DS 

ALV37$0  DS 

50 

CSV37$0  DS 

64  . 

t>*>B37fcl  DS 

DPBL 

ALV37$1  DS 

CSV 37$ 1  DS 

64 

DPB37$2  DS 

ALV37$2  DS 

50 

CSV37$2  DS 

64  . 

ENDIF 

IF 

H47T 

ALV47$0  DS 

CSV47$0  DS  64 

ALV47$1  DS  77 

CSV47$1  DS . 64 . 

ENDIF . 

IF  H67T 

DPB'67$0  DS . DPBL . 

ALV67$0  DS  256 

ALV67$V  DS . 77 . 

CSV67$1  DS  64 

. IF . H67PART2 

DPB67$2  DS  DPBL 

ALV67$2  DS . 256  ’ 

ENDIF 

. ENDiF . 


( 


( 


( 


( 


( 


( 
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OE08 

OEOA 

DPBX:  DS 

HSTDPB :  DS 

2 

2 

OEOC 

DMAB:  DS 

2 

. ;DMA  BUFFER.  -  USED. TO  STORE  STARTING.  ADDRESS 

;  OF  TRACK  DURING  WARM  BOOT 

OEOE 

SPT :  DS 

1 

. . ^NUMBER . OF  .SECTORS  PER  TRACK  (DURING  WpOOT) 

OEOF 

XLTW :  DS 

2 

{SECTOR  XLATE  TABLE  (DURING  WBOOT) 

0E11 

SPT1 :  DS 

1 

{ DITTO,  BEYOND  TRACK  0 

XLTW1 :  DS 

2 

{DITTO,  BEYOND  TRACK  0 

OEV-4 

TRACK:  DS 

1 

;  TRACK  (#  <  256) 

OE15 

SECTOR:  DS 

1 

. .  SECTOR  ... 

OE1 6 

SIDE:  DS 

1 

OE17 

RWOP  DS 

1 

.  { :I/0  TYPE. OPERATION 

;0=READ  1=WRITE 

OE18 

LSP :  DS 

1 

. {LOGICAL  .SECTORS.  .PER.  .PHYSICAL.  . . . 

OE19 

ERRCNT:  DS 

1 

; RETRY  COUNTER 

OE1A 

ERRTYP:  DS 

1 

{TYPE  OF  ERROR 

OfclB 

TRKPT :  DS 

2 

{CONTAINS  POINTER  TO  TRACK  REGISTER 

{FOR  CURRENT  DRIVE 

0E1D 

• 

SEKDSK:  DS 

1 

{SEEK  DISK  NUMBER 

OElE 

SEKTRK:  DS 

2 

{SEEK  TRACK  NUMBER 

0E20 

SEKSEC:  DS 

1 

{SEEK  SECTOR  NUMBER 

0E21 

HSTDSK :  DS 

1 

{HOST  DISK  NUMBER 

0E22 

HSTTRK :  DS 

2 

{HOST  TRACK  NUMBER 

OE2H 

HSTSEC:  DS 

1 

{HOST  SECTOR  NUMBER 

OE25 

SEKHST :  DS 

1 

{SEEK  SHR  SECSHp 

0E26 

• 

UNADSK:  DS 

1 

{LAST  UNALLOC  DISK 

0E27 

UNATRK:  DS 

2 

{LAST  UNALLOC  TRACK 

OE29 

UNASI:  DS 

1 

{LAST  UNALLOC  SECTOR  INDEX  INTO  XLT  TABLE 

0E2A 

• 

ERFLAG:  DS 

1 

{ERROR  REPORTING 

OE2B 

RSFLAG:  DS 

1 

{READ  SECTOR  FLAG 

OE2C 

READOP:  DS 

1 

{1  IF  READ  OPERATION 

OE2D 

WRTYPE :  DS 

1 

{WRITE  OPERATION  TYPE 

0E2E 

DMAADR :  DS 

2 

...{.LAST  DMA  ADDRESS 

PAGE 


CP/M  MACRO  ASSEM  2.0 


#142 


HEATH/ZENITH  BIOS 


28  AUG  81 


*  THE.  FOLLOWING  AREAS  .CANNOT  OVERLAY.  THE.  COLD.  BOOT  CODE,  .SINCE 
; ' ’ THEY’  CAN/ARE  USED  DURING  COLD  BOOT. 


;  IF  HOST  BUFFER  +  RUN-TIME  VARIABLES  OCCUPY  LESS  SPACE  THAN  THE 
;. .  .COLD .  BOOT.  CODE,.  IT  IS  .NECESSARY.  XQ .  WSQRG.  .PAST  THE.  .QQIP.  BOOT  CODE , 


IF 

( ($-HSTBUF)-CLEN)  SHR  15  . 

0EA7 

ORG 

ENDIF 

HSTBUF+CLEN 

0EA7 

0EA9 

HSAV: 

RETSAV: 

DS 

DS 

2 

2 

; SAVED  HL  DURING  INTERRUPT  SERVICE 
; SAVED  RETURN  ADDRESS  DURING  INT  SERVICE 

OEAB 

OLDSP: 

DS 

2 

;SAVE  SP  DURING  INTERRUPT  SERVICE 

IF 

INTINP 

OEAD 

CRTBUF: 

DS 

40 

;CRT  TYPE-AHEAD  BUFFER 

0ED5  = 

CRTBND 

EQU 

$ 

0028  = 

CRTLEN 

EQU 

CRTBND-CRTBUF 

0ED5 

DS 

i6 

; LOCAL  STACK  FOR  CRT  INTERRUPT  SERVICE 

0EE5  = 

LCLSTK 

EQU 

$ 

ENDIF 


0EE5 

DS 

32 

; STACK  AREA  DURING  COLD  A  WARM  BOOT 

0'F65 

STACK  DS 

0 

O'F05‘  = . BioSfctti)  'EfcU . $ 


O‘F0$ . END 


(.  ;  (  (  •■  '  (  •  <  (  :  (  I  <  ■■  l  (  , 


